From 0a4d3c8f12dc5797a919a00b6bcaf759947687cc Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 17 Jun 2018 23:24:47 +0200
Subject: Add ouest france parser

---
 src/Conf.hs | 37 -------------------------------------
 1 file changed, 37 deletions(-)
 delete mode 100644 src/Conf.hs

(limited to 'src/Conf.hs')

diff --git a/src/Conf.hs b/src/Conf.hs
deleted file mode 100644
index 03f8dc2..0000000
--- a/src/Conf.hs
+++ /dev/null
@@ -1,37 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module Conf
-  ( parse
-  , Conf(..)
-  ) where
-
-import Data.Text (Text)
-import qualified Data.Text as T
-import qualified Data.ConfigManager as Conf
-import Data.Time.Clock (NominalDiffTime)
-
-import Model.URL
-
-data Conf = Conf
-  { urls :: [URL]
-  , mailFrom :: Text
-  , mailTo :: [Text]
-  , properties :: [Text]
-  , listenInterval :: NominalDiffTime
-  } deriving Show
-
-parse :: FilePath -> IO Conf
-parse path = do
-  conf <-
-    (flip fmap) (Conf.readConfig path) (\configOrError -> do
-      conf <- configOrError
-      Conf <$>
-        Conf.lookup "urls" conf <*>
-        Conf.lookup "mailFrom" conf <*>
-        Conf.lookup "mailTo" conf <*>
-        Conf.lookup "properties" conf <*>
-        Conf.lookup "listenInterval" conf
-    )
-  case conf of
-    Left msg -> error (T.unpack msg)
-    Right c -> return c
-- 
cgit v1.2.3