From 64881460b53a3ba8444b609ad6a510c1a71b259b Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Tue, 7 Apr 2015 16:34:01 +0200
Subject: [PATCH] more currency formating

---
 Handler/Buy.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Handler/Buy.hs b/Handler/Buy.hs
index 32aa450..a2b2b70 100644
--- a/Handler/Buy.hs
+++ b/Handler/Buy.hs
@@ -79,7 +79,7 @@ postBuyCashR bId = do
               updateCashier price "Barzahlung"
               checkAlert bId
               setMessage $ Content $ Text $ "Viel Vergnügen. Bitte Zahle "
-                `T.append` (T.pack $ show ((fromIntegral price) / 100))
+                `T.append` (formatIntCurrency price)
                 `T.append` " "
                 `T.append` (appCurrency $ appSettings master)
                 `T.append` " in die Kasse ein"