jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-08-17 03:40:23 +03:00
Code Issues Projects Releases Wiki Activity

TabularListDemo: nit

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-12-27 15:54:26 -08:00
parent 1518f8f8b1
commit 16666f3891
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
programs/TabularListDemo.hs
View File

@ -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 ()