mirror of
https://github.com/jtdaugherty/brick.git
synced 2024-10-26 17:17:43 +03:00
TabularListDemo: nit
This commit is contained in:
parent
1518f8f8b1
commit
16666f3891
@ -79,13 +79,13 @@ appEvent (T.VtyEvent e) =
|
||||
Nothing -> return ()
|
||||
Just i -> tabularList %= L.listRemove i
|
||||
|
||||
V.EvKey V.KEsc [] -> M.halt
|
||||
|
||||
V.EvKey V.KLeft [] ->
|
||||
colIndex %= (\i -> max 0 (i - 1))
|
||||
V.EvKey V.KRight [] ->
|
||||
colIndex %= (\i -> min (length columnAlignments - 1) (i + 1))
|
||||
|
||||
V.EvKey V.KEsc [] -> M.halt
|
||||
|
||||
ev -> T.zoom tabularList $ L.handleListEvent ev
|
||||
appEvent _ = return ()
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user