Even less IORef

Also reviewed comments and made the action to add effects more general.

1 files changed, 4 insertions, 3 deletions

diff --git a/src/Game/Entities/Types.hs b/src/Game/Entities/Types.hs
index e22032b..dce4ffa 100644
--- a/src/Game/Entities/Types.hs
+++ b/src/Game/Entities/Types.hs
@@ -11,7 +11,6 @@ where
 
 import Data.IORef
 import qualified Game.Sprites as S
-import qualified Game.State as GS
 
 data Dir = DirRight | DirLeft | Dying deriving (Eq)
 
@@ -24,11 +23,13 @@ type IsBlocked = Int -> Int -> Bool
 data Entities = Entities
   { sprites :: S.SpriteSheet,
     player :: IORef Entity,
-    state :: IORef GS.State,
     entities :: [Entity]
   }
 
-data Action = ActionAddDustEffect Int Int | ActionAddBattery | ActionHitPlayer deriving (Show)
+-- | The effect name must match the sprite name in the spritesheet.
+type EffectName = String
+
+data Action = ActionAddEffect Int Int EffectName | ActionAddBattery | ActionHitPlayer
 
 data Entity = Entity
   { typ :: Type,