made supplier digest more beautiful

Handler/SupplierActions.hs

@@ -30,11 +30,13 @@ getSupplierDigestR sId = do
       bevs <- runDB $ selectList [BeverageSupplier ==. (Just sId)] [Asc BeverageIdent]
       digests <- return $ map genBevDigest bevs
       w <- return $ [whamlet|$newline always
+        <p>
           #{supplierIdent sup}<br>
           #{unTextarea $ supplierAddress sup}<br>
           #{supplierTel sup}<br>
           #{supplierEmail sup}<br>
         <hr>
+        <p>
           <b>
             _{MsgCustomerId}: #{supplierCustomerId sup}
         <table>
@@ -55,6 +57,7 @@ getSupplierDigestR sId = do
                 <td>#{T.pack $ show $ bdCrates dig}
                 <td>#{formatIntCurrency $ fromMaybe 0 $ beveragePricePerCrate $ bdBev dig} #{appCurrency $ appSettings master}
                 <td>#{formatIntCurrency $ bdTotal dig} #{appCurrency $ appSettings master}
+          <tr>
             <td colspan="3">_{MsgTotalCrates}
             <td>#{T.pack $ show $ sum $ map bdCrates digests}
             <td>_{MsgBuyValue}