From 5c435d8f242f7307f2d7e5a24e16bd6f6e65e8b4 Mon Sep 17 00:00:00 2001 From: Wolf Date: Sat, 21 Jan 2017 17:15:50 +0100 Subject: [PATCH] tagged separators to indicate a table i markdown --- Handler/SupplierActions.hs | 56 ++++++++++++++++++++++++++++++++------ 1 file changed, 48 insertions(+), 8 deletions(-) diff --git a/Handler/SupplierActions.hs b/Handler/SupplierActions.hs index de78dcd..a6c91d2 100644 --- a/Handler/SupplierActions.hs +++ b/Handler/SupplierActions.hs @@ -43,26 +43,66 @@ getSupplierDigestR sId = do - + ---: + - -
_{MsgArtNr} - _{MsgName} - _{MsgVolume} - _{MsgCrateCount} - _{MsgPricePerCrate} - _{MsgTotalValue} + + | + _{MsgArtNr} + | + + _{MsgName} + | + + _{MsgVolume} + | + + _{MsgCrateCount} + | + + _{MsgPricePerCrate} + | + + _{MsgTotalValue} + | +
+ ---: + + ---: + + ---: + + ---: + + ---: + $forall dig <- digests $if bdCrates dig /= 0
#{fromMaybe "" $ beverageArtNr $ bdBev dig} + + | + #{fromMaybe "" $ beverageArtNr $ bdBev dig} + | #{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} + |
_{MsgTotalCrates} + + | + _{MsgTotalCrates} + | #{T.pack $ show $ sum $ map bdCrates digests} + | _{MsgBuyValue} + | #{formatIntCurrency $ sum $ map bdTotal digests} #{appCurrency $ appSettings master} + | |] tableLayout w Nothing -> do