pinosaur
/
ekitaihs.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixed bounds
[ekitaihs.git]
/
Render.hs
diff --git
a/Render.hs
b/Render.hs
index
37a8e0a
..
16fda2b
100644
(file)
--- a/
Render.hs
+++ b/
Render.hs
@@
-40,6
+40,7
@@
handleEkitaiEvent s e =
VtyEvent vtye ->
case vtye of
EvKey (KChar 'q') [] -> halt s
VtyEvent vtye ->
case vtye of
EvKey (KChar 'q') [] -> halt s
+ EvKey (KChar 's') [] -> continue s { ekitaiStateSim = physStep $ ekitaiStateSim s }
_ -> continue s
_ -> continue s
_ -> continue s
_ -> continue s