aboutsummaryrefslogtreecommitdiff
path: root/src/Game.hs
diff options
context:
space:
mode:
authorJuan J. Martinez <jjm@usebox.net>2023-02-10 12:50:40 +0000
committerJuan J. Martinez <jjm@usebox.net>2023-02-10 12:50:40 +0000
commitcfc5b71c86a4927fa8d2294fce5e8b8264b4a3ca (patch)
tree091e64d3a936d28759f641627c96f5fd76bc595c /src/Game.hs
parent04c2839de5b860ff0efe957e2be9a21dbdfa329a (diff)
downloadspace-plat-hs-cfc5b71c86a4927fa8d2294fce5e8b8264b4a3ca.tar.gz
space-plat-hs-cfc5b71c86a4927fa8d2294fce5e8b8264b4a3ca.zip
Moved the entity spawn to Entity module
Diffstat (limited to 'src/Game.hs')
-rw-r--r--src/Game.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Game.hs b/src/Game.hs
index dcb5eab..c267453 100644
--- a/src/Game.hs
+++ b/src/Game.hs
@@ -69,9 +69,7 @@ main = do
controls <- newIORef =<< C.init
map' <- M.load "data/map.json" tsTexture
sprites <- S.load "data/sprites.json" ssTexture
- entities <- newIORef $ E.mkEntities sprites
- spawned <- M.mkEntities map' sprites controls
- entities $~ flip E.add spawned
+ entities <- newIORef =<< E.mkEntities sprites map' controls
runReaderT
gameLoop
Env