jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-12-01 17:32:52 +03:00
Code Issues Projects Releases Wiki Activity

Updates

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-05-09 10:20:31 -07:00
parent 085ba506ae
commit 4d61bb0ebe
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
programs/Main.hs
View File

@ -26,6 +26,7 @@ handleEvent :: Event -> St -> IO St
handleEvent e st =
case e of
EvKey KEsc [] -> exitSuccess
EvKey KEnter [] -> error $ editStr $ stEditor st
ev -> return $ st { stEditor = editEvent ev (stEditor st) }
initialState :: St