From ff90c6cb7e55074bc640f4d5ed6e2a681702ed56 Mon Sep 17 00:00:00 2001 From: Dennis Frieberg Date: Sat, 7 Jun 2025 03:36:39 +0200 Subject: [PATCH] if we send an error mail, we also print the error to stderr --- app/Main.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/app/Main.hs b/app/Main.hs index cc6c243..65ef276 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -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