more currency formating

2015-04-07 16:34:01 +02:00 · 2015-04-07 16:34:01 +02:00 · 64881460b5
commit 64881460b5
parent 4506d48b50
1 changed files with 1 additions and 1 deletions
--- 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"