blob: c09f69ef8b56dfcd817acd9588253f2b6dfe064b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
{-# LANGUAGE OverloadedStrings #-}
module Config
( configUsage
, Config(..)
, getConfig
) where
import Data.Maybe (catMaybes)
import Data.Map (Map)
import qualified Data.Map as M
import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Text.IO as T
import Control.Monad (guard)
import System.Directory (doesFileExist)
import Model.URL
configUsage :: Text
configUsage =
T.intercalate
"\n"
[ T.concat
[ "Please provide an url for leboncoin in the file named: "
, T.pack configPath
]
, "url = http://…"
]
configPath :: FilePath
configPath = "conf"
data Config = Config
{ url :: URL
} deriving (Eq, Read, Show)
getConfig :: IO (Maybe Config)
getConfig = do
exists <- doesFileExist configPath
if exists
then
configFromFile <$> T.readFile configPath
else
return Nothing
configFromFile :: Text -> Maybe Config
configFromFile =
configFromMap
. M.fromList
. catMaybes
. map lineConfig
. filter (not . T.null)
. map T.strip
. T.lines
configFromMap :: Map Text Text -> Maybe Config
configFromMap map = do
url <- M.lookup "url" map
return $ Config { url = url }
lineConfig :: Text -> Maybe (Text, Text)
lineConfig line = do
(key, value) <- twoElementsList (map T.strip . T.splitOn "=" $ line)
guard (T.length key > 0)
return (key, value)
twoElementsList :: [a] -> Maybe (a, a)
twoElementsList [x, y] = Just (x, y)
twoElementsLisst _ = Nothing
|
