cli: CompoundBalanceCommand: use Html.Attribute.alignleft

This commit is contained in:
Henning Thielemann 2024-09-26 21:02:41 +02:00 committed by Simon Michael
parent 823be7c565
commit 8744a0687c

View File

@ -22,7 +22,7 @@ import qualified Data.Text.Lazy.Builder as TB
import Data.Time.Calendar (Day, addDays)
import System.Console.CmdArgs.Explicit as C (Mode, flagNone, flagReq)
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.Spreadsheet as Spr
import Lucid as L hiding (value_)
@ -337,7 +337,7 @@ compoundBalanceReportAsHtml ropts cbr =
if average_ ropts 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)
titlerows =