diff --git a/Handler/SupplierActions.hs b/Handler/SupplierActions.hs index 32a63f4..4f64f82 100755 --- a/Handler/SupplierActions.hs +++ b/Handler/SupplierActions.hs @@ -55,13 +55,13 @@ getSupplierDigestR sId = do #{beverageIdent $ bdBev dig} #{formatIntVolume $ beverageMl $ bdBev dig} #{T.pack $ show $ bdCrates dig} - #{formatIntCurrency $ fromMaybe 0 $ beveragePricePerCrate $ bdBev dig} #{appCurrency $ appSettings master} - #{formatIntCurrency $ bdTotal dig} #{appCurrency $ appSettings master} + #{formatIntCurrency $ fromMaybe 0 $ beveragePricePerCrate $ bdBev dig} #{appCurrency $ appSettings master} + #{formatIntCurrency $ bdTotal dig} #{appCurrency $ appSettings master} _{MsgTotalCrates} #{T.pack $ show $ sum $ map bdCrates digests} _{MsgBuyValue} - #{formatIntCurrency $ sum $ map bdTotal digests} #{appCurrency $ appSettings master} + #{formatIntCurrency $ sum $ map bdTotal digests} #{appCurrency $ appSettings master} |] tableLayout w Nothing -> do