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

drop unused SubTotal option

Browse Source
This commit is contained in:
Simon Michael 2011-08-07 17:10:34 +00:00
parent 513846e8c2
commit d025daa8a9
3 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger-vty/Hledger/Vty/Main.hs
View File

@ -94,7 +94,6 @@ vty :: [Opt] -> [String] -> Journal -> IO ()
vty opts args j = do vty opts args j = do
v <- mkVty v <- mkVty
DisplayRegion w h <- display_bounds $ terminal v DisplayRegion w h <- display_bounds $ terminal v
let opts' = SubTotal:opts
d <- getCurrentDay d <- getCurrentDay
let a = enter d BalanceScreen args let a = enter d BalanceScreen args
AppState { AppState {
@ -102,7 +101,7 @@ vty opts args j = do
,aw=fromIntegral w ,aw=fromIntegral w
,ah=fromIntegral h ,ah=fromIntegral h
,amsg=helpmsg ,amsg=helpmsg
,aopts=opts' ,aopts=opts
,aargs=args ,aargs=args
,ajournal=j ,ajournal=j
,abuf=[] ,abuf=[]

4
hledger/Hledger/Cli.hs
View File

@ -130,7 +130,7 @@ tests_Hledger_Cli = TestList
] ]
,"balance report with account pattern o" ~: ,"balance report with account pattern o" ~:
([SubTotal], ["o"]) `gives` ([], ["o"]) `gives`
[" $1 expenses:food" [" $1 expenses:food"
," $-2 income" ," $-2 income"
," $-1 gifts" ," $-1 gifts"
@ -217,7 +217,7 @@ tests_Hledger_Cli = TestList
] ]
,"balance report with -E shows zero-balance accounts" ~: ,"balance report with -E shows zero-balance accounts" ~:
([SubTotal,Empty], ["assets"]) `gives` ([Empty], ["assets"]) `gives`
[" $-1 assets" [" $-1 assets"
," $1 bank" ," $1 bank"
," 0 checking" ," 0 checking"

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

@ -110,7 +110,6 @@ data Opt =
| Flat | Flat
| Drop {value::String} | Drop {value::String}
| NoTotal | NoTotal
| SubTotal
| DailyOpt | DailyOpt
| WeeklyOpt | WeeklyOpt
| MonthlyOpt | MonthlyOpt