From 34a5b6199346f5c76e62058e1833ee8907e3a80a Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 12 Oct 2015 17:11:56 +0200 Subject: [PATCH] made supplier digest more beautiful --- Handler/SupplierActions.hs | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) diff --git a/Handler/SupplierActions.hs b/Handler/SupplierActions.hs index d434483..32a63f4 100755 --- a/Handler/SupplierActions.hs +++ b/Handler/SupplierActions.hs @@ -30,13 +30,15 @@ getSupplierDigestR sId = do bevs <- runDB $ selectList [BeverageSupplier ==. (Just sId)] [Asc BeverageIdent] digests <- return $ map genBevDigest bevs w <- return $ [whamlet|$newline always - #{supplierIdent sup}
- #{unTextarea $ supplierAddress sup}
- #{supplierTel sup}
- #{supplierEmail sup}
+

+ #{supplierIdent sup}
+ #{unTextarea $ supplierAddress sup}
+ #{supplierTel sup}
+ #{supplierEmail sup}


- - _{MsgCustomerId}: #{supplierCustomerId sup} +

+ + _{MsgCustomerId}: #{supplierCustomerId sup} @@ -55,10 +57,11 @@ getSupplierDigestR sId = do +
#{T.pack $ show $ bdCrates dig} #{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} +
_{MsgTotalCrates} + #{T.pack $ show $ sum $ map bdCrates digests} + _{MsgBuyValue} + #{formatIntCurrency $ sum $ map bdTotal digests} #{appCurrency $ appSettings master} |] tableLayout w Nothing -> do