nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

hardcoded text alignments in deigest table

Browse source
This commit is contained in:
nek0 2015-10-12 17:33:56 +02:00
parent 8563f8a738
commit 1c2218f887
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Handler/SupplierActions.hs
View file

@ -55,13 +55,13 @@ getSupplierDigestR sId = do
<td>#{beverageIdent $ bdBev dig} <td>#{beverageIdent $ bdBev dig}
<td>#{formatIntVolume $ beverageMl $ bdBev dig} <td>#{formatIntVolume $ beverageMl $ bdBev dig}
<td>#{T.pack $ show $ bdCrates dig} <td>#{T.pack $ show $ bdCrates dig}
<td>#{formatIntCurrency $ fromMaybe 0 $ beveragePricePerCrate $ bdBev dig} #{appCurrency $ appSettings master} <td style="text-align: right;">#{formatIntCurrency $ fromMaybe 0 $ beveragePricePerCrate $ bdBev dig} #{appCurrency $ appSettings master}
<td>#{formatIntCurrency $ bdTotal dig} #{appCurrency $ appSettings master} <td style="text-align: right;">#{formatIntCurrency $ bdTotal dig} #{appCurrency $ appSettings master}
<tr> <tr>
<td colspan="3">_{MsgTotalCrates} <td colspan="3">_{MsgTotalCrates}
<td>#{T.pack $ show $ sum $ map bdCrates digests} <td>#{T.pack $ show $ sum $ map bdCrates digests}
<td>_{MsgBuyValue} <td>_{MsgBuyValue}
<td>#{formatIntCurrency $ sum $ map bdTotal digests} #{appCurrency $ appSettings master} <td style="text-align: right;">#{formatIntCurrency $ sum $ map bdTotal digests} #{appCurrency $ appSettings master}
|] |]
tableLayout w tableLayout w
Nothing -> do Nothing -> do