fixed bug with duplicate bodies in tableLayout

2015-10-12 16:46:31 +02:00 · 2015-10-12 16:46:31 +02:00 · f42b79d1c8
parent 0b2cd56712
commit f42b79d1c8
1 changed files with 28 additions and 29 deletions
--- a/Handler/SupplierActions.hs
+++ b/Handler/SupplierActions.hs
@ -30,7 +30,6 @@ getSupplierDigestR sId = do
      bevs <- runDB $ selectList [BeverageSupplier ==. (Just sId)] [Asc BeverageIdent]
      digests <- return $ map genBevDigest bevs
      w <- return $ [whamlet|$newline always
-        <body>
        #{supplierIdent sup}<br>
        #{unTextarea $ supplierAddress sup}<br>
        #{supplierTel sup}<br>