From cfc5b71c86a4927fa8d2294fce5e8b8264b4a3ca Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Fri, 10 Feb 2023 12:50:40 +0000
Subject: Moved the entity spawn to Entity module

---
 src/Game.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/Game.hs')

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
-- 
cgit v1.2.3