jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2025-01-08 15:08:46 +03:00
Code Issues Projects Releases Wiki Activity

Export list moveBy and use in demo

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-05-24 12:11:27 -07:00
parent 6c1a61abe2
commit 44e211d18f
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
programs/Main.hs
View File

@ -77,7 +77,7 @@ appEvent e st =
EvKey KEnter [] -> EvKey KEnter [] ->
let el = length $ listElements $ st^.stList let el = length $ listElements $ st^.stList
in return $ st & stList %~ listInsert el el in return $ st & stList %~ (moveBy 1 . listInsert el el)
ev -> return $ st & stEditor %~ (handleEvent ev) ev -> return $ st & stEditor %~ (handleEvent ev)
& stList %~ (handleEvent ev) & stList %~ (handleEvent ev)

1
src/Brick/List.hs
View File

@ -2,6 +2,7 @@
module Brick.List module Brick.List
( List(listElements) ( List(listElements)
, list , list
, moveBy
, drawList , drawList
, listInsert , listInsert
) )