diff --git a/Handler/SupplierActions.hs b/Handler/SupplierActions.hs index a6c91d2..49f3e7a 100644 --- a/Handler/SupplierActions.hs +++ b/Handler/SupplierActions.hs @@ -40,6 +40,7 @@ getSupplierDigestR sId = do

_{MsgCustomerId}: #{supplierCustomerId sup} +

  @@ -94,8 +95,12 @@ getSupplierDigestR sId = do |
- | - _{MsgTotalCrates} + + |  + |_ + {MsgTotalCrates} + + |  | #{T.pack $ show $ sum $ map bdCrates digests} |