slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

cli: CompoundBalanceCommand: use Html.Attribute.alignleft

Browse Source
This commit is contained in:
Henning Thielemann 2024-09-26 21:02:41 +02:00 committed by Simon Michael
parent 823be7c565
commit 8744a0687c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/CompoundBalanceCommand.hs
View File

@ -22,7 +22,7 @@ import qualified Data.Text.Lazy.Builder as TB
import Data.Time.Calendar (Day, addDays) import Data.Time.Calendar (Day, addDays)
import System.Console.CmdArgs.Explicit as C (Mode, flagNone, flagReq) import System.Console.CmdArgs.Explicit as C (Mode, flagNone, flagReq)
import Hledger.Write.Csv (CSV, printCSV, printTSV) import Hledger.Write.Csv (CSV, printCSV, printTSV)
import Hledger.Write.Html.Attribute (stylesheet_, collapse, lpad, alignright) import Hledger.Write.Html.Attribute (stylesheet_, collapse, lpad, alignleft, alignright)
import qualified Hledger.Write.Html as Html import qualified Hledger.Write.Html as Html
import qualified Hledger.Write.Spreadsheet as Spr import qualified Hledger.Write.Spreadsheet as Spr
import Lucid as L hiding (value_) import Lucid as L hiding (value_)
@ -337,7 +337,7 @@ compoundBalanceReportAsHtml ropts cbr =
if average_ ropts then 1 else 0, if average_ ropts then 1 else 0,
if layout_ ropts == LayoutBare then 1 else 0 if layout_ ropts == LayoutBare then 1 else 0
] ]
leftattr = style_ "text-align:left" leftattr = style_ alignleft
blankrow = tr_ $ td_ [colspanattr] $ toHtmlRaw (" "::String) blankrow = tr_ $ td_ [colspanattr] $ toHtmlRaw (" "::String)
titlerows = titlerows =