diff options
author | Juan J. Martinez <jjm@usebox.net> | 2023-02-10 12:50:40 +0000 |
---|---|---|
committer | Juan J. Martinez <jjm@usebox.net> | 2023-02-10 12:50:40 +0000 |
commit | cfc5b71c86a4927fa8d2294fce5e8b8264b4a3ca (patch) | |
tree | 091e64d3a936d28759f641627c96f5fd76bc595c /src/Game.hs | |
parent | 04c2839de5b860ff0efe957e2be9a21dbdfa329a (diff) | |
download | space-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.hs | 4 |
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 |