fixed bug in metanotifications

This commit is contained in:
nek0 2015-04-09 23:18:47 +02:00
parent c173c6005a
commit 1cc845215a
1 changed files with 5 additions and 4 deletions

View File

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