From 1cc845215af3c0cc2267f76c07b0d548de59d288 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Thu, 9 Apr 2015 23:18:47 +0200
Subject: [PATCH] fixed bug in metanotifications

---
 Handler/NewUser.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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