From 3d802eeaf27d5794410e4168f4a128810910db5e Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sat, 21 Jan 2017 21:59:30 +0100
Subject: [PATCH] correction

---
 Handler/SupplierActions.hs | 16 +++-------------
 1 file changed, 3 insertions(+), 13 deletions(-)

diff --git a/Handler/SupplierActions.hs b/Handler/SupplierActions.hs
index 49f3e7a..02e100a 100644
--- a/Handler/SupplierActions.hs
+++ b/Handler/SupplierActions.hs
@@ -64,17 +64,8 @@ getSupplierDigestR sId = do
                 _{MsgTotalValue}
                 <span .transp>|
             <tr>
-                <span .transp>---:
-              <th>
-                <span .transp>---:
-              <th>
-                <span .transp>---:
-              <th>
-                <span .transp>---:
-              <th>
-                <span .transp>---:
-              <th>
-                <span .transp>---:
+              <th colspan="6" .transp>
+                |---:|---:|---:|---:|---:|---:|
             
           $forall dig <- digests
             $if bdCrates dig /= 0
@@ -97,8 +88,7 @@ getSupplierDigestR sId = do
             <td colspan="3">
               <span .transp>
                 |&nbsp;
-                |_
-              {MsgTotalCrates}
+                |_{MsgTotalCrates}
               <span .transp>
                 |&nbsp;
               <span .transp>|