diff options
Diffstat (limited to 'src/Config.hs')
-rw-r--r-- | src/Config.hs | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/src/Config.hs b/src/Config.hs deleted file mode 100644 index c01bbe1..0000000 --- a/src/Config.hs +++ /dev/null @@ -1,32 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE FlexibleContexts #-} - -module Config - ( getConfig - , Config(..) - ) where - -import Data.ConfigFile -import Data.Text (Text) -import qualified Data.Text as T - -import Control.Monad.Trans.Error (runErrorT) -import Control.Monad.IO.Class (liftIO) -import Control.Monad (join) -import Control.Arrow (left) -import Control.Applicative (liftA2) - -data Config = Config - { mailTo :: Text - , mailFrom :: Text - } deriving (Read, Eq, Show) - -getConfig :: FilePath -> IO (Either Text Config) -getConfig filePath = - left (T.pack . show) <$> (runErrorT $ do - cp <- join $ liftIO $ readfile emptyCP filePath - liftA2 - Config - (T.pack <$> get cp "DEFAULT" "mail-to") - (T.pack <$> get cp "DEFAULT" "mail-from") - ) |