X-Git-Url: https://git.danieliu.xyz/?p=ekitaihs.git;a=blobdiff_plain;f=Render.hs;fp=Render.hs;h=036944b53b0681e2514198bb2fe7a236d0294978;hp=16fda2b77eb65f69c6a9da2636c39d87138545e2;hb=259904bfc4ca2f8b90381dfdb887750b9bdaf368;hpb=0320d5e4f8a290f56c382f81d5443508aea30761

diff --git a/Render.hs b/Render.hs
index 16fda2b..036944b 100644
--- a/Render.hs
+++ b/Render.hs
@@ -24,10 +24,10 @@ ekitaiApp = App
     , appAttrMap = const $ attrMap mempty []
     }
 
-buildInitialState :: IO EkitaiState
-buildInitialState =
+buildInitialState :: Simulation -> IO EkitaiState
+buildInitialState sim =
     pure EkitaiState
-    { ekitaiStateSim = testSim
+    { ekitaiStateSim = sim
     }
 
 drawEkitai :: EkitaiState -> [Widget ResourceName]