diff options
author | tv <tv@shackspace.de> | 2014-12-24 20:28:07 +0100 |
---|---|---|
committer | tv <tv@shackspace.de> | 2014-12-24 20:28:07 +0100 |
commit | 998864578605c2d99299072320208e731ed5099c (patch) | |
tree | 52a4148fa65efd271925c1bb057706863692218b /test3.hs | |
parent | 4299cd382b10947a8a79e586f95d38823aaa9597 (diff) |
flip arguments of focus{Prev,Next}
Diffstat (limited to 'test3.hs')
-rw-r--r-- | test3.hs | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -143,25 +143,25 @@ main = update vty pic nextEvent vty >>= \e -> case e of EvKey KUp [] -> - --case focusPrev t_cur t of - --case focusPrev c v of + --case focusPrev t t_cur of + --case focusPrev v c of -- Just t_prev -> -- --rec vty t_prev t -- rec vty (i + 1) t_prev v -- Nothing -> -- --rec vty t_cur t -- rec vty (i + 1) c v - rec vty (i + 1) (focusPrev c v) v + rec vty (i + 1) (focusPrev v c) v EvKey KDown [] -> - --case focusNext t_cur t of - --case focusNext c v of + --case focusNext t t_cur of + --case focusNext v c of -- Just t_next -> -- --rec vty t_next t -- rec vty (i + 1) t_next v -- Nothing -> -- --rec vty t_cur t -- rec vty (i + 1) c v - rec vty (i + 1) (focusNext c v) v + rec vty (i + 1) (focusNext v c) v EvKey KEnter [] -> case c of Nothing -> error "no cursor" |