ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-10-04 11:17:08 +03:00
Code Issues Projects Releases Wiki Activity

have eventecho print out final event

Browse Source
This commit is contained in:
Corey O'Connor 2014-01-29 08:13:25 +01:00
parent 6b08dfe1e6
commit f0dd4aae40
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/EventEcho.hs
View File

@ -17,14 +17,13 @@ type App = RWST Vty () (Seq String) IO
main = do
vty <- mkVty def
_ <- execRWST vty_interact vty Seq.empty
_ <- execRWST (vty_interact False) vty Seq.empty
shutdown vty
vty_interact :: App ()
vty_interact = do
vty_interact :: Bool -> App ()
vty_interact should_exit = do
update_display
done <- handle_next_event
unless done vty_interact
unless should_exit $ handle_next_event >>= vty_interact
update_display :: App ()
update_display = do
@ -36,8 +35,7 @@ update_display = do
handle_next_event = ask >>= liftIO . next_event >>= handle_event
where
handle_event (EvKey KEsc []) = return True
handle_event e = do
modify $ (<|) (show e) >>> Seq.take event_buffer_size
return False
return $ e == EvKey KEsc []