From 1c2218f88701459fd41040d8092bac0cb9ba4db1 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 12 Oct 2015 17:33:56 +0200 Subject: [PATCH] hardcoded text alignments in deigest table --- Handler/SupplierActions.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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