more currency formating

This commit is contained in:
nek0 2015-04-07 16:34:01 +02:00
parent 4506d48b50
commit 64881460b5
1 changed files with 1 additions and 1 deletions

View File

@ -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"