From a93cdb937f1615b9d4811f6b5d8f7c6cf9612eee Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Wed, 16 Sep 2015 14:27:37 +0200
Subject: [PATCH] sending emails to credit transfer recipients

---
 Handler/Transfer.hs | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/Handler/Transfer.hs b/Handler/Transfer.hs
index c1d0716..eb348fe 100644
--- a/Handler/Transfer.hs
+++ b/Handler/Transfer.hs
@@ -88,16 +88,30 @@ transferForm = renderDivs
   $ areq currencyField (fieldSettingsLabel MsgValue) (Just 0)
 
 notify :: User -> User -> Int -> App -> IO ()
-notify sender recpt amount master = do
+notify sender rcpt amount master = do
   case userEmail sender of
     Just email ->
       liftIO $ sendMail email "Guthabentransfer beim Matematen"
         [stext|
 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
         |]