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

docs: correction

Browse Source
This commit is contained in:
Simon Michael 2010-04-15 21:49:07 +00:00
parent f4337cfce8
commit 33dbdd5821
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Hledger/Cli/Commands/Vty.hs
View File

@ -216,7 +216,7 @@ currentArgs (AppState {aargs=as}) = as
screen :: AppState -> Screen screen :: AppState -> Screen
screen a = scr where (Loc scr _ _ _) = loc a screen a = scr where (Loc scr _ _ _) = loc a
-- | Enter a new screen, with possibly new args, saving the old ui location on the stack. -- | Enter a new screen, with possibly new args, adding the new ui location to the stack.
enter :: LocalTime -> Screen -> [String] -> AppState -> AppState enter :: LocalTime -> Screen -> [String] -> AppState -> AppState
enter t scr@BalanceScreen args a = updateData t $ pushLoc Loc{scr=scr,sy=0,cy=0,largs=args} a enter t scr@BalanceScreen args a = updateData t $ pushLoc Loc{scr=scr,sy=0,cy=0,largs=args} a
enter t scr@RegisterScreen args a = updateData t $ pushLoc Loc{scr=scr,sy=0,cy=0,largs=args} a enter t scr@RegisterScreen args a = updateData t $ pushLoc Loc{scr=scr,sy=0,cy=0,largs=args} a