fixed bug with duplicate bodies in tableLayout
This commit is contained in:
parent
0b2cd56712
commit
f42b79d1c8
1 changed files with 28 additions and 29 deletions
|
@ -30,7 +30,6 @@ getSupplierDigestR sId = do
|
||||||
bevs <- runDB $ selectList [BeverageSupplier ==. (Just sId)] [Asc BeverageIdent]
|
bevs <- runDB $ selectList [BeverageSupplier ==. (Just sId)] [Asc BeverageIdent]
|
||||||
digests <- return $ map genBevDigest bevs
|
digests <- return $ map genBevDigest bevs
|
||||||
w <- return $ [whamlet|$newline always
|
w <- return $ [whamlet|$newline always
|
||||||
<body>
|
|
||||||
#{supplierIdent sup}<br>
|
#{supplierIdent sup}<br>
|
||||||
#{unTextarea $ supplierAddress sup}<br>
|
#{unTextarea $ supplierAddress sup}<br>
|
||||||
#{supplierTel sup}<br>
|
#{supplierTel sup}<br>
|
||||||
|
|
Loading…
Add table
Reference in a new issue