some type signatures
This commit is contained in:
parent
9e7a7e3439
commit
3fa4824218
@ -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
|
||||
[
|
||||
]
|
||||
|
||||
@ -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
|
||||
[
|
||||
]
|
||||
|
||||
@ -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 {
|
||||
|
||||
Loading…
Reference in New Issue
Block a user