fix for #103

Handler/Transfer.hs

@@ -47,12 +47,14 @@ postTransferR from to =
       ((res, _), _) <- runFormPost
         $ renderBootstrap3 BootstrapBasicForm transferForm
       case res of
-        FormSuccess amount -> do
+        FormSuccess amount
-          if amount < 0
+          | amount < 0 -> do
-            then do
               setMessageI MsgNegativeTransfer
               redirect $ TransferR from to
-            else do
+          | userBalance sender < amount -> do
+              setMessageI MsgNotEnoughFunds
+              redirect HomeR
+          | otherwise -> do
               runDB $ update from [UserBalance -=. amount]
               runDB $ update to [UserBalance +=. amount]
               master <- getYesod

messages/cz.msg

@@ -146,3 +146,4 @@ UserIdentNotUnique: Uživatelské jméno není jedinečný
 Login: Přihlásit
 Logout: Odhlásit
 CreationBlocked: Nelze vytvořit nové uživatele.
+NotEnoughFunds: Nedostatek kreditu

messages/de.msg

@@ -146,3 +146,4 @@ UserIdentNotUnique: Benutzername ist nicht einzigartig
 Login: Login
 Logout: Logout
 CreationBlocked: Es können keine neuen Nutzer angelegt werden.
+NotEnoughFunds: Nicht genügen Guthaben

messages/en.msg

@@ -146,3 +146,4 @@ UserIdentNotUnique: Username is not unique
 Login: Login
 Logout: Logout
 CreationBlocked: New users can not be created.
+NotEnoughFunds: Not enough funds!