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}
@@ -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