<commit_before>{-# LANGUAGE DeriveDataTypeable, GeneralizedNewtypeDeriving #-}

-----------------------------------------------------------------------------
-- |
-- Module      : HEP.Storage.WebDAV.Type
-- Copyright   : (c) 2011-2013 <NAME>
--
-- License     : GPL-3
-- Maintainer  : <NAME> <<EMAIL>>
-- Stability   : experimental
-- Portability : GHC
--
-- WebDAV storage IO types
-- 
-----------------------------------------------------------------------------

module HEP.Storage.WebDAV.Type where

import Data.Typeable
import Data.Data

-- | 
data URLtype = LocalURL FilePath
             | GlobalURL String
             deriving (Show)

-- | 
data WebDAVProgram = UseCurl (Maybe FilePath) 
--  | Cadaver (Maybe FilePath)

-- | 
data Credential = CredDigest String String | NoCred


        -- webdav_program :: WebDAVProgram, 
        -- webdav_path_wget :: String,
        -- webdav_path_cadaver :: String,

data WebDAVConfig = WebDAVConfig { webdav_credential :: Credential 
                                 , webdav_baseurl   :: String 
                                 } 
--                     deriving (Show, Typeable, Data)

data WebDAVRemoteDir = WebDAVRemoteDir {  webdav_remotedir :: FilePath } 
                       deriving (Show, Typeable, Data)


data WebDAVCommand = Download | Upload
  deriving (Show, Typeable, Data)

{- 
newtype WebDAVServer = WebDAVServer { 
  webdav_server_url :: String
} deriving (Show,Typeable,Data)

data WebDAVClient = WebDAVClient { 
  webdav_client_wget :: FilePath, 
  webdav_client_cadaver :: FilePath
} deriving (Show,Typeable,Data)

-}<commit_msg>comment clean up<commit_after>{-# LANGUAGE DeriveDataTypeable, GeneralizedNewtypeDeriving #-}

-----------------------------------------------------------------------------
-- |
-- Module      : HEP.Storage.WebDAV.Type
-- Copyright   : (c) 2011-2013 <NAME>
--
-- License     : GPL-3
-- Maintainer  : <NAME> <<EMAIL>>
-- Stability   : experimental
-- Portability : GHC
--
-- WebDAV storage IO types
-- 
-----------------------------------------------------------------------------

module HEP.Storage.WebDAV.Type where

import Data.Typeable
import Data.Data

-- | 
data URLtype = LocalURL FilePath
             | GlobalURL String
             deriving (Show)

-- | 
data WebDAVProgram = UseCurl (Maybe FilePath) 
--  | Cadaver (Maybe FilePath)

-- | 
data Credential = CredDigest String String | NoCred

-- | 
data WebDAVConfig = WebDAVConfig { webdav_credential :: Credential 
                                 , webdav_baseurl   :: String 
                                 } 

data WebDAVRemoteDir = WebDAVRemoteDir {  webdav_remotedir :: FilePath } 
                       deriving (Show, Typeable, Data)


data WebDAVCommand = Download | Upload
  deriving (Show, Typeable, Data)
{'fraction_non_alphanumeric': 0.2036637931034483, 'fraction_numerical': 0.00646551724137931, 'mean_word_length': 1.6174812030075187, 'pattern_counts': {'":': 0, '<': 11, '<?xml version=': 0, '>': 11, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 4, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1982642', 'n_tokens_mistral': 845, 'n_tokens_neox': 791, 'n_words': 180}