slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

some type signatures

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger/Hledger/Cli/Balancesheet.hs
View File

@ -21,6 +21,7 @@ import Hledger.Cli.Options
import Hledger.Cli.Balance import Hledger.Cli.Balance
balancesheetmode :: Mode RawOpts
balancesheetmode = (defCommandMode $ ["balancesheet"]++aliases) { balancesheetmode = (defCommandMode $ ["balancesheet"]++aliases) {
modeHelp = "show a balance sheet" `withAliases` aliases modeHelp = "show a balance sheet" `withAliases` aliases
,modeGroupFlags = Group { ,modeGroupFlags = Group {
@ -60,6 +61,7 @@ withoutBeginDate ropts@ReportOpts{..} = ropts{begin_=Nothing, period_=p}
where p = case period_ of Nothing -> Nothing where p = case period_ of Nothing -> Nothing
Just (i, DateSpan _ e) -> Just (i, DateSpan Nothing e) Just (i, DateSpan _ e) -> Just (i, DateSpan Nothing e)
tests_Hledger_Cli_Balancesheet :: Test
tests_Hledger_Cli_Balancesheet = TestList tests_Hledger_Cli_Balancesheet = TestList
[ [
] ]

2
hledger/Hledger/Cli/Cashflow.hs
View File

@ -24,6 +24,7 @@ import Hledger.Cli.Options
import Hledger.Cli.Balance import Hledger.Cli.Balance
cashflowmode :: Mode RawOpts
cashflowmode = (defCommandMode ["cashflow","cf"]) { cashflowmode = (defCommandMode ["cashflow","cf"]) {
modeHelp = "show a cashflow statement" `withAliases` ["cf"] modeHelp = "show a cashflow statement" `withAliases` ["cf"]
,modeGroupFlags = Group { ,modeGroupFlags = Group {
@ -57,6 +58,7 @@ Total:
#{padleft 20 $ showMixedAmountWithoutPrice total} #{padleft 20 $ showMixedAmountWithoutPrice total}
|] |]
tests_Hledger_Cli_Cashflow :: Test
tests_Hledger_Cli_Cashflow = TestList tests_Hledger_Cli_Cashflow = TestList
[ [
] ]

1
hledger/Hledger/Cli/Incomestatement.hs
View File

@ -21,6 +21,7 @@ import Hledger.Cli.Options
import Hledger.Cli.Balance import Hledger.Cli.Balance
incomestatementmode :: Mode RawOpts
incomestatementmode = (defCommandMode $ ["incomestatement"]++aliases) { incomestatementmode = (defCommandMode $ ["incomestatement"]++aliases) {
modeHelp = "show an income statement" `withAliases` aliases modeHelp = "show an income statement" `withAliases` aliases
,modeGroupFlags = Group { ,modeGroupFlags = Group {