nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki 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

5
Handler/NewUser.hs
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,7 +82,8 @@ 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"
| otherwise = case userEmail user of
Just email -> sendMail email "Profiländerung"
[stext|
Hallo #{userIdent user},
@ -94,3 +94,4 @@ Grüße,
der Matemat
|]
Nothing -> return ()