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"