src/Model/Conf.hs


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

{-# LANGUAGE OverloadedStrings #-}

module Model.Conf
  ( getConf
  , Conf(..)
  ) where

import Data.Text (Text)
import qualified Data.ConfigManager as Conf

data Conf = Conf
  { mailTo :: Text
  , mailFrom :: Text
  , dayForNextWeekNotification :: Text
  } deriving (Read, Eq, Show)

getConf :: FilePath -> IO (Either Text Conf)
getConf path =
  (flip fmap) (Conf.readConfig path) (\configOrError -> do
    conf <- configOrError
    Conf <$>
      Conf.lookup "mailTo" conf <*>
      Conf.lookup "mailFrom" conf <*>
      Conf.lookup "dayForNextWeekNotification" conf
  )