diff --git a/hledger-web/Handler/Common.hs b/hledger-web/Handler/Common.hs index 30935094d..32816ee61 100644 --- a/hledger-web/Handler/Common.hs +++ b/hledger-web/Handler/Common.hs @@ -383,10 +383,10 @@ journalTransactionsReportAsHtml :: WebOpts -> ViewData -> TransactionsReport -> journalTransactionsReportAsHtml _ vd (_,items) = [hamlet| - Date - Description - Accounts - Amount + Date + Description + Accounts + Amount $forall i <- numberTransactionsReportItems items ^{itemAsHtml vd i} |] @@ -397,7 +397,7 @@ journalTransactionsReportAsHtml _ vd (_,items) = [hamlet| #{date} #{elideRight 60 desc} - + $if showamt \#{mixedAmountAsHtml amt} $forall p' <- tpostings t @@ -405,7 +405,7 @@ $forall p' <- tpostings t  #{elideRight 40 $ paccount p'} - #{mixedAmountAsHtml $ pamount p'} + #{mixedAmountAsHtml $ pamount p'} |] where evenodd = if even n then "even" else "odd" :: String @@ -428,13 +428,13 @@ registerItemsHtml :: WebOpts -> ViewData -> TransactionsReport -> HtmlUrl AppRou registerItemsHtml _ vd (balancelabel,items) = [hamlet| - Date - Description - To/From Account + Date + Description + To/From Account(s) - Amount - #{balancelabel} + Amount + #{balancelabel} $forall i <- numberTransactionsReportItems items ^{itemAsHtml vd i} @@ -453,17 +453,17 @@ registerItemsHtml _ vd (balancelabel,items) = [hamlet|   [+] - + $if showamt \#{mixedAmountAsHtml amt} - #{mixedAmountAsHtml bal} + #{mixedAmountAsHtml bal} $forall p' <- tpostings t  #{elideRight 40 $ paccount p'} - #{mixedAmountAsHtml $ pamount p'} - + #{mixedAmountAsHtml $ pamount p'} + |] where evenodd = if even n then "even" else "odd" :: String