fixed bug in metanotifications

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 ()