nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

more currency formating

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/Buy.hs
View file

@ -79,7 +79,7 @@ postBuyCashR bId = do
updateCashier price "Barzahlung" updateCashier price "Barzahlung"
checkAlert bId checkAlert bId
setMessage $ Content $ Text $ "Viel Vergnügen. Bitte Zahle " setMessage $ Content $ Text $ "Viel Vergnügen. Bitte Zahle "
`T.append` (T.pack $ show ((fromIntegral price) / 100)) `T.append` (formatIntCurrency price)
`T.append` " " `T.append` " "
`T.append` (appCurrency $ appSettings master) `T.append` (appCurrency $ appSettings master)
`T.append` " in die Kasse ein" `T.append` " in die Kasse ein"