Untangle state changes into actions

WIP: still unclear if we really need the IORefs!

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Game/Entities/Types.hs b/src/Game/Entities/Types.hs
index a50ab2d..e22032b 100644
--- a/src/Game/Entities/Types.hs
+++ b/src/Game/Entities/Types.hs
@@ -4,7 +4,7 @@ module Game.Entities.Types
     Collision,
     IsBlocked,
     Entities (..),
-    Spawn (..),
+    Action (..),
     Entity (..),
   )
 where
@@ -28,7 +28,7 @@ data Entities = Entities
     entities :: [Entity]
   }
 
-data Spawn = DustEffectSpawn Int Int
+data Action = ActionAddDustEffect Int Int | ActionAddBattery | ActionHitPlayer deriving (Show)
 
 data Entity = Entity
   { typ :: Type,
@@ -42,5 +42,5 @@ data Entity = Entity
     sprite :: S.Sprite,
     update :: Entity -> IO Entity,
     destroy :: Bool,
-    spawns :: [Spawn]
+    actions :: [Action]
   }