diff --git a/hledger/Hledger/Cli/Balancesheet.hs b/hledger/Hledger/Cli/Balancesheet.hs index 56c9848ef..f10a35a95 100644 --- a/hledger/Hledger/Cli/Balancesheet.hs +++ b/hledger/Hledger/Cli/Balancesheet.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE QuasiQuotes, RecordWildCards #-} +{-# LANGUAGE QuasiQuotes, RecordWildCards, NoCPP #-} {-| The @balancesheet@ command prints a simple balance sheet. @@ -32,15 +32,15 @@ balancesheet CliOpts{reportopts_=ropts} j = do LT.putStr $ [lt|Balance Sheet Assets: --{unlines $ accountsReportAsText ropts assetreport} +#{unlines $ accountsReportAsText ropts assetreport} Liabilities: --{unlines $ accountsReportAsText ropts liabilityreport} +#{unlines $ accountsReportAsText ropts liabilityreport} Equity: --{unlines $ accountsReportAsText ropts equityreport} +#{unlines $ accountsReportAsText ropts equityreport} Total: -------------------- --{padleft 20 $ showMixedAmountWithoutPrice total} +#{padleft 20 $ showMixedAmountWithoutPrice total} |] withoutBeginDate :: ReportOpts -> ReportOpts diff --git a/hledger/Hledger/Cli/Cashflow.hs b/hledger/Hledger/Cli/Cashflow.hs index aba070951..09be714fe 100644 --- a/hledger/Hledger/Cli/Cashflow.hs +++ b/hledger/Hledger/Cli/Cashflow.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE QuasiQuotes, RecordWildCards #-} +{-# LANGUAGE QuasiQuotes, RecordWildCards, NoCPP #-} {-| The @cashflow@ command prints a simplified cashflow statement. It just @@ -36,11 +36,11 @@ cashflow CliOpts{reportopts_=ropts} j = do LT.putStr $ [lt|Cashflow Statement Cash flows: --{unlines $ accountsReportAsText ropts cashreport} +#{unlines $ accountsReportAsText ropts cashreport} Total: -------------------- --{padleft 20 $ showMixedAmountWithoutPrice total} +#{padleft 20 $ showMixedAmountWithoutPrice total} |] withoutBeginDate :: ReportOpts -> ReportOpts diff --git a/hledger/Hledger/Cli/Incomestatement.hs b/hledger/Hledger/Cli/Incomestatement.hs index 9b682e67f..4c644a4fe 100644 --- a/hledger/Hledger/Cli/Incomestatement.hs +++ b/hledger/Hledger/Cli/Incomestatement.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE QuasiQuotes, TemplateHaskell, OverloadedStrings #-} +{-# LANGUAGE QuasiQuotes, TemplateHaskell, OverloadedStrings, NoCPP #-} {-| The @incomestatement@ command prints a simple income statement (profit & loss) report. @@ -29,13 +29,13 @@ incomestatement CliOpts{reportopts_=ropts} j = do LT.putStr $ [lt|Income Statement Revenues: --{unlines $ accountsReportAsText ropts incomereport} +#{unlines $ accountsReportAsText ropts incomereport} Expenses: --{unlines $ accountsReportAsText ropts expensereport} +#{unlines $ accountsReportAsText ropts expensereport} Total: -------------------- --{padleft 20 $ showMixedAmountWithoutPrice total} +#{padleft 20 $ showMixedAmountWithoutPrice total} |] tests_Hledger_Cli_Incomestatement :: Test