X-Git-Url: https://git.danieliu.xyz/?a=blobdiff_plain;ds=sidebyside;f=Render.hs;h=16fda2b77eb65f69c6a9da2636c39d87138545e2;hb=0320d5e4f8a290f56c382f81d5443508aea30761;hp=37a8e0a82dac0484d33082fff4642c78e91c6c5b;hpb=699b8ddd72aca8569a63b1e37a0265428c534bc9;p=ekitaihs.git

diff --git a/Render.hs b/Render.hs
index 37a8e0a..16fda2b 100644
--- 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