nerf/choirMail
1
0
Fork 0
Code Issues Pull requests Releases 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
Show stats Download patch file Download diff file Expand all files Collapse all files

13
README.md
View file

@ -16,12 +16,13 @@ The config file is a toml file, even though it as of now makes not really use
of any toml features.
```toml
mailDomain = "the domain of the smtp server to send messages with"
mailUser = "the username on the smtp server"
mailPassword = "the passwond on the smtp server"
mailTo = "the mail to send to"
mailFrom = "the sender of the mail"
mailErrorTo = "the address to send a mail to in case of error"
[mail]
domain = "the domain of the smtp server to send messages with"
user = "the username on the smtp server"
password = "the passwond on the smtp server"
to = "the mail to send to"
from = "the sender of the mail"
errorTo = "the address to send a mail to in case of error"
```
## Develop

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