From 8744a0687c2fb157c64ec1a589d5d00403dd5208 Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Thu, 26 Sep 2024 21:02:41 +0200 Subject: [PATCH] cli: CompoundBalanceCommand: use Html.Attribute.alignleft --- hledger/Hledger/Cli/CompoundBalanceCommand.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hledger/Hledger/Cli/CompoundBalanceCommand.hs b/hledger/Hledger/Cli/CompoundBalanceCommand.hs index 26f6494fd..94af5e7db 100644 --- a/hledger/Hledger/Cli/CompoundBalanceCommand.hs +++ b/hledger/Hledger/Cli/CompoundBalanceCommand.hs @@ -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 =