README.md

@@ -16,13 +16,12 @@ The config file is a toml file, even though it as of now makes not really use
 of any toml features.
 
 ```toml
-[mail]
+mailDomain   = "the domain of the smtp server to send messages with"
-domain   = "the domain of the smtp server to send messages with"
+mailUser     = "the username on the smtp server"
-user     = "the username on the smtp server"
+mailPassword = "the passwond on the smtp server"
-password = "the passwond on the smtp server"
+mailTo       = "the mail to send to"
-to       = "the mail to send to"
+mailFrom     = "the sender of the mail"
-from     = "the sender of the mail"
+mailErrorTo  = "the address to send a mail to in case of error"
-errorTo  = "the address to send a mail to in case of error"
 ```
 
 ## Develop
@@ -34,5 +33,4 @@ this depends on your local cabal cache.
 - Add the nix modules to the flake
 - Better Error handling
   - Find out which exceptions the SMTP module throws
-- Split config into secrets and non secret config
+
-  - make the pad url configurable

app/Config.hs

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