Fix worldEvent reset space leak

2021-08-18 13:18:46 +02:00
parent a6f08aef16
commit 910c29a510
12 changed files with 34 additions and 33 deletions
@@ -72,7 +72,7 @@ data World = World
    , _mousePos             :: !Point2
    , _testString           :: String
    , _yourID               :: !Int
-    , _worldEvents          :: !(World -> World)
+    , _worldEvents          :: (World -> World)
    , _pressPlates          :: IM.IntMap PressPlate
    , _buttons              :: IM.IntMap Button
    , _soundQueue           :: [(Int,Int16)]
@@ -174,7 +174,7 @@ data Creature = Creature
    , _crApplyDamage    :: [DamageType] -> Creature -> (World -> World,Creature)
    , _crStance         :: Stance
    , _crActionPlan     :: ActionPlan
-    , _crMeleeCooldown  :: Maybe Int
+    , _crMeleeCooldown  :: !Int
    , _crAwakeLevel     :: AwakeLevel
    , _crAttentionDir   :: AttentionDir
    , _crAwarenessLevel :: IM.IntMap AwarenessLevel