diff options
author | Joris | 2015-11-21 21:41:38 +0100 |
---|---|---|
committer | Joris | 2015-11-21 21:41:38 +0100 |
commit | 5375ad26dd78220185f1ffe05222250c06dc1a0c (patch) | |
tree | 30998d4fe19206e8c5c9e564db116d2022e5e313 /src/Config.hs | |
parent | 7acd7a42f7663aa79d18e24bdb9fe19bf15f8fae (diff) | |
download | events-5375ad26dd78220185f1ffe05222250c06dc1a0c.tar.gz events-5375ad26dd78220185f1ffe05222250c06dc1a0c.tar.bz2 events-5375ad26dd78220185f1ffe05222250c06dc1a0c.zip |
Get next week birthdays and send an empty mail for the moment
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") - ) |