, appAttrMap = const $ attrMap mempty []
}
-buildInitialState :: IO EkitaiState
-buildInitialState =
+buildInitialState :: Simulation -> IO EkitaiState
+buildInitialState sim =
pure EkitaiState
- { ekitaiStateSim = testSim
+ { ekitaiStateSim = sim
}
drawEkitai :: EkitaiState -> [Widget ResourceName]
VtyEvent vtye ->
case vtye of
EvKey (KChar 'q') [] -> halt s
+ EvKey (KChar 's') [] -> continue s { ekitaiStateSim = physStep $ ekitaiStateSim s }
_ -> continue s
_ -> continue s