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
+                EvKey (KChar 's') [] -> continue s { ekitaiStateSim = physStep $ ekitaiStateSim s }
                 _ -> continue s
         _ -> continue s