X-Git-Url: https://git.danieliu.xyz/?p=ekitaihs.git;a=blobdiff_plain;f=Render.hs;fp=Render.hs;h=d6d967efadc0a0b3a5093e3d3b46144409b2868d;hp=bc4a15a076ece598d94b657a225a498c7d07dbf9;hb=4de2980e358a4ed8bb05e615a3fee16215b03c1f;hpb=76d05eb2de39a69e93c2c342073cde2627c9f50c

diff --git a/Render.hs b/Render.hs
index bc4a15a..d6d967e 100644
--- a/Render.hs
+++ b/Render.hs
@@ -32,12 +32,12 @@ ekitaiApp = App
     , appAttrMap = const $ attrMap mempty []
     }
 
-ekitaiMain sim = do
+ekitaiMain sim timestep = do
     chan <- newBChan 10
     -- tick game
     forkIO $ forever $ do
         writeBChan chan Tick
-        threadDelay 50000
+        threadDelay timestep
     let buildVty = Graphics.Vty.mkVty Graphics.Vty.defaultConfig
     initialVty <- buildVty
     initialState <- buildInitialState sim