mirror of
https://git.nerfingen.de/nerf/choirMail.git
synced 2024-10-22 19:39:25 +00:00
29 lines
831 B
Haskell
29 lines
831 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
module Config where
|
|
|
|
import qualified Toml
|
|
import Toml(TomlCodec, (.=))
|
|
import qualified Data.Text as T
|
|
|
|
data Config = Config {
|
|
mailDomain :: String
|
|
,mailUsername :: String
|
|
,mailPassword :: String
|
|
,mailTo :: T.Text
|
|
,mailFrom :: T.Text
|
|
} deriving Show
|
|
|
|
configCodec :: TomlCodec Config
|
|
configCodec = Config
|
|
<$> Toml.string "mailDomain" .= mailDomain
|
|
<*> Toml.string "mailUser" .= mailUsername
|
|
<*> Toml.string "mailPassword" .= mailPassword
|
|
<*> Toml.text "mailTo" .= mailTo
|
|
<*> Toml.text "mailFrom" .= mailFrom
|
|
|
|
parseFile :: String -> IO (Either String Config)
|
|
parseFile path = do
|
|
config <- Toml.decodeFileEither configCodec path
|
|
case config of
|
|
Left errors -> return $ Left $ unwords $ fmap show errors
|
|
Right x -> return $ Right $ x
|