diff options
Diffstat (limited to 'SimpleConfig.hs')
-rw-r--r-- | SimpleConfig.hs | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/SimpleConfig.hs b/SimpleConfig.hs new file mode 100644 index 0000000..9ffe7b1 --- /dev/null +++ b/SimpleConfig.hs | |||
@@ -0,0 +1,36 @@ | |||
1 | module SimpleConfig where | ||
2 | |||
3 | import qualified Data.Map as Map | ||
4 | import Data.Map ( Map ) | ||
5 | import Data.Char | ||
6 | import Data.List | ||
7 | import Data.Maybe | ||
8 | import Control.Monad | ||
9 | |||
10 | newtype SimpleConfig = SimpleConfig | ||
11 | { configMap :: Map String (Map String String) | ||
12 | } | ||
13 | deriving (Eq,Show) | ||
14 | |||
15 | load :: FilePath -> IO SimpleConfig | ||
16 | load path = parse `fmap` readFile path | ||
17 | |||
18 | parse :: String -> SimpleConfig | ||
19 | parse txt = SimpleConfig $ Map.fromList ss | ||
20 | where | ||
21 | ls = lines txt | ||
22 | cs = filter (not . null) $ map (takeWhile (/='#')) ls | ||
23 | css = groupBy (\_ s -> take 1 s /= "[") cs | ||
24 | ss = mapMaybe (\ds -> do | ||
25 | brkt <- listToMaybe $ take 1 ds | ||
26 | opn <- listToMaybe $ take 1 brkt | ||
27 | guard $ opn == '[' | ||
28 | let sec = init (drop 1 brkt) | ||
29 | return (sec, Map.fromList $ map parseItem $ drop 1 ds) | ||
30 | ) | ||
31 | css | ||
32 | |||
33 | parseItem txt = (key,val) | ||
34 | where | ||
35 | (key,rst) = span (not . isSpace) $ dropWhile isSpace txt | ||
36 | val = dropWhile isSpace rst | ||