diff --git a/Handler/NewUser.hs b/Handler/NewUser.hs index 113510c..f4a2f84 100644 --- a/Handler/NewUser.hs +++ b/Handler/NewUser.hs @@ -4,7 +4,6 @@ import Import as I import Handler.Common import Text.Read import Text.Shakespeare.Text -import Data.Maybe getNewUserR :: Handler Html getNewUserR = do @@ -83,8 +82,9 @@ modifyUserForm user = renderDivs $ UserConf notify :: User -> UserConf -> IO () notify user conf | (userEmail user) == (userConfEmail conf) && (userNotify user) == (userConfNotify conf) = return () - | otherwise = sendMail (fromJust $ userEmail user) "Profiländerung" - [stext| + | otherwise = case userEmail user of + Just email -> sendMail email "Profiländerung" + [stext| Hallo #{userIdent user}, deine Profileinstellungen wurden geändert. @@ -93,4 +93,5 @@ Nur damit du Bescheid weißt. Grüße, der Matemat - |] + |] + Nothing -> return ()