nerf/choirMail
1
0
Fork 0
Code Issues Pull requests Releases 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 ff90c6cb7e
Signed by: nerf
GPG key ID: 7C58AFED036072C5
1 changed files with 3 additions and 1 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 reportErrorLocal = liftIO . hPutStr stderr
reportErrorMail :: MonadIO m => Config -> String -> m () 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 :: Day -> [MailRecord] -> Either String MailRecord
findChoirDay today table = maybe findChoirDay today table = maybe