nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

maybe this is a little better

Browse source
This commit is contained in:
nek0 2017-08-04 07:05:04 +02:00
parent a6a30a7705
commit 866d85945c
1 changed files with 8 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
Handler/Transfer.hs
View file

@ -73,9 +73,8 @@ transferForm = areq currencyField (bfs MsgValue) (Just 0)
notify :: User -> User -> Int -> App -> IO () notify :: User -> User -> Int -> App -> IO ()
notify sender rcpt amount master = do notify sender rcpt amount master = do
case userEmail sender of when (isJust $ userEmail sender) $
Just email -> liftIO $ sendMail (fromJust $ userEmail sender) "Guthabentransfer beim Matematen"
liftIO $ sendMail email "Guthabentransfer beim Matematen"
[stext| [stext|
Hallo #{userIdent sender} Hallo #{userIdent sender}
@ -85,11 +84,8 @@ Viele Grüße,
Dein Matemat Dein Matemat
|] |]
Nothing -> when (isJust $ userEmail rcpt) $
return () liftIO $ sendMail (fromJust $ userEmail rcpt) "Guthabentransfer eingetroffen"
case userEmail rcpt of
Just email ->
liftIO $ sendMail email "Guthabentransfer eingetroffen"
[stext| [stext|
Hallo #{userIdent rcpt} Hallo #{userIdent rcpt}
@ -99,5 +95,3 @@ Viele Grüße,
Dein Matemat Dein Matemat
|] |]
Nothing ->
return ()