nerf/choirMail
1
0
Fork 0
mirror of https://git.nerfingen.de/nerf/choirMail.git synced 2025-04-19 17:11:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

made the config file format a bit more sensible

Browse source
This commit is contained in:
nerf van nerfingen 2022-11-14 12:13:42 +01:00
parent 480ffba3f9
commit cbc22ea207
2 changed files with 14 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

14
app/Config.hs
View file

@ -16,13 +16,13 @@ data Config = Config {
} 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
<*> Toml.text "mailErrorTo" .= mailErrorTo
configCodec = table "mail" $ Config
<$> Toml.string "domain" .= mailDomain
<*> Toml.string "user" .= mailUsername
<*> Toml.string "password" .= mailPassword
<*> Toml.text "to" .= mailTo
<*> Toml.text "from" .= mailFrom
<*> Toml.text "errorTo" .= mailErrorTo
parseConfigFile :: (MonadIO m, MonadFail m) => String -> m Config
parseConfigFile path = do