From 8f6303750c0e1c47f042db6f231e4c8ce6585641 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sun, 5 Apr 2015 01:49:15 +0200
Subject: [PATCH] forgot currency in buy cash message

---
 Handler/Buy.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Handler/Buy.hs b/Handler/Buy.hs
index c3021b8..67a6667 100644
--- a/Handler/Buy.hs
+++ b/Handler/Buy.hs
@@ -66,11 +66,16 @@ postBuyCashR bId = do
       ((res, _), _) <- runFormPost buyForm
       case res of
         FormSuccess quant -> do
+          master <- getYesod
           price <- return $ quant * (beveragePrice bev + 50)
           runDB $ update bId [BeverageAmount -=. quant]
           updateCashier price "Barzahlung"
           checkAlert bId
-          setMessage $ Content $ Text $ "Viel Vergnügen. Bitte Zahle " `T.append` (T.pack $ show ((fromIntegral price) / 100)) `T.append` " in die Kasse ein"
+          setMessage $ Content $ Text $ "Viel Vergnügen. Bitte Zahle "
+            `T.append` (T.pack $ show ((fromIntegral price) / 100))
+            `T.append` " "
+            `T.append` (appCurrency $ appSettings master)
+            `T.append` " in die Kasse ein"
           redirect $ HomeR
         _ -> do
           setMessage "Etwas ist schief gelaufen"