feat(config): improve configurability of VerpMode

config/settings.yml

@@ -14,8 +14,8 @@ mail-from:
   email:        "_env:MAILFROM_EMAIL:uniworx@localhost"
 mail-object-domain: "_env:MAILOBJECT_DOMAIN:localhost"
 mail-verp:
-  separator:    "+"
-  at-replacement: "="
+  separator:    "_env:VERP_SEPARATOR:+"
+  at-replacement: "_env:VERP_AT_REPLACEMENT:="
 mail-support:
   name:         "_env:MAILSUPPORT_NAME:"
   email:        "_env:MAILSUPPORT:uni2work@ifi.lmu.de"

src/Application.hs

@@ -194,7 +194,7 @@ makeFoundation appSettings'@AppSettings{..} = do
 
     runAppLoggingT tempFoundation $ do
       $logInfoS "InstanceID" $ UUID.toText appInstanceID
-      -- logDebugS "Configuration" $ tshow appSettings'
+      $logDebugS "Configuration" $ tshow appSettings'
 
       smtpPool <- for appSmtpConf $ \c -> do
         $logDebugS "setup" "SMTP-Pool"

src/Settings.hs

@@ -393,7 +393,7 @@ instance FromJSON AppSettings where
 
         appMailFrom               <- o .: "mail-from"
         appMailObjectDomain       <- o .: "mail-object-domain"
-        appMailVerp               <- o .: "mail-verp"
+        appMailVerp               <- fromMaybe VerpNone . join <$> (o .:? "mail-verp" <|> pure Nothing)
         appMailSupport            <- o .: "mail-support"
 
         appJobWorkers             <- o .:  "job-workers"