From 33dbdd5821ad67f90f0ff99c03d7626890bc6de0 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Thu, 15 Apr 2010 21:49:07 +0000 Subject: [PATCH] docs: correction --- Hledger/Cli/Commands/Vty.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Hledger/Cli/Commands/Vty.hs b/Hledger/Cli/Commands/Vty.hs index ce15ee918..f5e6b43ab 100644 --- a/Hledger/Cli/Commands/Vty.hs +++ b/Hledger/Cli/Commands/Vty.hs @@ -216,7 +216,7 @@ currentArgs (AppState {aargs=as}) = as screen :: AppState -> Screen 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 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