diff --git a/hledger/Hledger/Cli/Balancesheet.hs b/hledger/Hledger/Cli/Balancesheet.hs index d7ae2c82e..faee33e68 100644 --- a/hledger/Hledger/Cli/Balancesheet.hs +++ b/hledger/Hledger/Cli/Balancesheet.hs @@ -21,6 +21,7 @@ import Hledger.Cli.Options import Hledger.Cli.Balance +balancesheetmode :: Mode RawOpts balancesheetmode = (defCommandMode $ ["balancesheet"]++aliases) { modeHelp = "show a balance sheet" `withAliases` aliases ,modeGroupFlags = Group { @@ -60,6 +61,7 @@ withoutBeginDate ropts@ReportOpts{..} = ropts{begin_=Nothing, period_=p} where p = case period_ of Nothing -> Nothing Just (i, DateSpan _ e) -> Just (i, DateSpan Nothing e) +tests_Hledger_Cli_Balancesheet :: Test tests_Hledger_Cli_Balancesheet = TestList [ ] diff --git a/hledger/Hledger/Cli/Cashflow.hs b/hledger/Hledger/Cli/Cashflow.hs index 7afcc3af5..69b8b4357 100644 --- a/hledger/Hledger/Cli/Cashflow.hs +++ b/hledger/Hledger/Cli/Cashflow.hs @@ -24,6 +24,7 @@ import Hledger.Cli.Options import Hledger.Cli.Balance +cashflowmode :: Mode RawOpts cashflowmode = (defCommandMode ["cashflow","cf"]) { modeHelp = "show a cashflow statement" `withAliases` ["cf"] ,modeGroupFlags = Group { @@ -57,6 +58,7 @@ Total: #{padleft 20 $ showMixedAmountWithoutPrice total} |] +tests_Hledger_Cli_Cashflow :: Test tests_Hledger_Cli_Cashflow = TestList [ ] diff --git a/hledger/Hledger/Cli/Incomestatement.hs b/hledger/Hledger/Cli/Incomestatement.hs index c7cd1b2c8..603b11cda 100644 --- a/hledger/Hledger/Cli/Incomestatement.hs +++ b/hledger/Hledger/Cli/Incomestatement.hs @@ -21,6 +21,7 @@ import Hledger.Cli.Options import Hledger.Cli.Balance +incomestatementmode :: Mode RawOpts incomestatementmode = (defCommandMode $ ["incomestatement"]++aliases) { modeHelp = "show an income statement" `withAliases` aliases ,modeGroupFlags = Group {