From 410b759086c692d17fc4292b73da8ff144f806e1 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Thu, 2 Apr 2009 21:01:57 +0000 Subject: [PATCH] drop 4th ui screen for consistency --- UICommand.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/UICommand.hs b/UICommand.hs index e42b645f5..3acad7921 100644 --- a/UICommand.hs +++ b/UICommand.hs @@ -80,7 +80,7 @@ go a@AppState{av=av,aw=aw,ah=ah,abuf=buf,amsg=amsg,aopts=opts,aargs=args,aledger EvKey (KASCII 'b') [] -> go $ resetTrailAndEnter BalanceScreen a EvKey (KASCII 'r') [] -> go $ resetTrailAndEnter RegisterScreen a EvKey (KASCII 'p') [] -> go $ resetTrailAndEnter PrintScreen a - EvKey (KASCII 'l') [] -> go $ resetTrailAndEnter LedgerScreen a + -- EvKey (KASCII 'l') [] -> go $ resetTrailAndEnter LedgerScreen a EvKey KRight [] -> go $ drilldown a EvKey KEnter [] -> go $ drilldown a EvKey KLeft [] -> go $ backout a @@ -234,8 +234,9 @@ drilldown :: AppState -> AppState drilldown a | screen a == BalanceScreen = enter RegisterScreen a{aargs=[currentAccountName a]} | screen a == RegisterScreen = scrollToEntry e $ enter PrintScreen a - | screen a == PrintScreen = enter LedgerScreen a - | screen a == LedgerScreen = a + | screen a == PrintScreen = a + -- | screen a == PrintScreen = enter LedgerScreen a + -- | screen a == LedgerScreen = a where e = currentEntry a -- | Get the account name currently highlighted by the cursor on the