From 90ed6caa1f91e8a67a5a64b1762cf4d21b209259 Mon Sep 17 00:00:00 2001
From: Wolf <vv01f@users.noreply.github.com>
Date: Sat, 21 Jan 2017 17:20:15 +0100
Subject: [PATCH] hidden columns

for aggregation row
---
 Handler/SupplierActions.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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
         <p>
           <b>
             _{MsgCustomerId}: #{supplierCustomerId sup}
+        <p>&nbsp;
         <table>
           <thead>
             <tr>
@@ -94,8 +95,12 @@ getSupplierDigestR sId = do
                   <span .transp>|
           <tr>
             <td colspan="3">
-              <span .transp>|
-              _{MsgTotalCrates}
+              <span .transp>
+                |&nbsp;
+                |_
+              {MsgTotalCrates}
+              <span .transp>
+                |&nbsp;
               <span .transp>|
             <td>#{T.pack $ show $ sum $ map bdCrates digests}
               <span .transp>|