nerf/choirMail
1
0
Fork 0
mirror of https://git.nerfingen.de/nerf/choirMail.git synced 2025-06-08 17:51:01 +00:00
Code Issues Projects Releases Packages Wiki Activity

if we send an error mail, we also print the error to stderr

Browse source
This commit is contained in:
Dennis Frieberg 2025-06-07 03:36:39 +02:00
parent a460fd561f
commit ab7c39b707
Signed by: nerf
GPG key ID: 7C58AFED036072C5
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
app/Main.hs
View file

@ -25,7 +25,9 @@ reportErrorLocal :: MonadIO m => String -> m ()
reportErrorLocal = liftIO . hPutStr stderr
reportErrorMail :: MonadIO m => Config -> String -> m ()
reportErrorMail config error' = send (mailDomain config) (mailUsername config) (mailPassword config) (mailErrorTo config) (mailFrom config) "choirMail Error" (LT.pack error')
reportErrorMail config error' = do
reportErrorLocal error'
send (mailDomain config) (mailUsername config) (mailPassword config) (mailErrorTo config) (mailFrom config) "choirMail Error" (LT.pack error')
findChoirDay :: Day -> [MailRecord] -> Either String MailRecord
findChoirDay today table = maybe