pinosaur
/
ekitaihs.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
start on reading file
[ekitaihs.git]
/
Render.hs
diff --git
a/Render.hs
b/Render.hs
index
16fda2b
..
036944b
100644
(file)
--- a/
Render.hs
+++ b/
Render.hs
@@
-24,10
+24,10
@@
ekitaiApp = App
, appAttrMap = const $ attrMap mempty []
}
, appAttrMap = const $ attrMap mempty []
}
-buildInitialState :: IO EkitaiState
-buildInitialState =
+buildInitialState ::
Simulation ->
IO EkitaiState
+buildInitialState
sim
=
pure EkitaiState
pure EkitaiState
- { ekitaiStateSim =
testS
im
+ { ekitaiStateSim =
s
im
}
drawEkitai :: EkitaiState -> [Widget ResourceName]
}
drawEkitai :: EkitaiState -> [Widget ResourceName]