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

sending emails to credit transfer recipients

Browse source
This commit is contained in:
nek0 2015-09-16 14:27:37 +02:00
parent 35ae7833c5
commit a93cdb937f
1 changed files with 17 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
Handler/Transfer.hs
View file

@ -88,16 +88,30 @@ transferForm = renderDivs
$ areq currencyField (fieldSettingsLabel MsgValue) (Just 0) $ areq currencyField (fieldSettingsLabel MsgValue) (Just 0)
notify :: User -> User -> Int -> App -> IO () notify :: User -> User -> Int -> App -> IO ()
notify sender recpt amount master = do notify sender rcpt amount master = do
case userEmail sender of case userEmail sender of
Just email -> Just email ->
liftIO $ sendMail email "Guthabentransfer beim Matematen" liftIO $ sendMail email "Guthabentransfer beim Matematen"
[stext| [stext|
Hallo #{userIdent sender} Hallo #{userIdent sender}
Du hast gerade #{formatIntCurrency amount}#{appCurrency $ appSettings master} an #{userIdent recpt} transferiert. Du hast gerade #{formatIntCurrency amount}#{appCurrency $ appSettings master} an #{userIdent rcpt} transferiert.
Viele Grüßem Viele Grüße,
Der Matemat
|]
Nothing ->
return ()
case userEmail rcpt of
Just email ->
liftIO $ sendMail email "Guthabentransfer eingetroffen"
[stext|
Hallo #{userIdent rcpt}
Du hast gerade #{formatIntCurrency amount}#{appCurrency $ appSettings master} von #{userIdent sender} erhalten.
Viele Grüße,
Der Matemat Der Matemat
|] |]