c3d2/yammat
c3d2/yammat
38
0
Fork 1
Code Issues Pull Requests Releases Activity

fixed bug in metanotifications

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Handler/NewUser.hs
View File

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