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