some type signatures

This commit is contained in:
Simon Michael 2014-03-25 17:16:16 -07:00
parent 9e7a7e3439
commit 3fa4824218
3 changed files with 5 additions and 0 deletions

View File

@ -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
[
]

View File

@ -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
[
]

View File

@ -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 {