Make creature update an external function

src/Dodge/Data.hs

@@ -10,6 +10,7 @@ circular imports are probably not a good idea.
 {-# LANGUAGE DerivingStrategies #-}
 module Dodge.Data 
     ( module Dodge.Data
+    , module Dodge.Data.Payload
     , module Dodge.Data.RadarSweep
     , module Dodge.Data.PosEvent
     , module Dodge.Data.EnergyBall
@@ -53,6 +54,7 @@ module Dodge.Data
     , module Dodge.Data.RadarBlip
     , module Dodge.Data.PathGraph
     ) where
+import Dodge.Data.Payload
 import Dodge.Data.RadarSweep
 import Dodge.Data.PosEvent
 import Dodge.Data.EnergyBall
@@ -306,15 +308,6 @@ data Gust = Gust
     , _guVel :: Point2
     , _guTime :: Int
     }
-data CreatureType
-    = Humanoid
-        { _skinHead     :: Color
-        , _skinUpper    :: Color
-        , _skinLower    :: Color
-        }
-    | Barreloid
-    | Lampoid {_lampHeight :: Float}
-    | NonDrawnCreature
 data Creature = Creature
     { _crPos            :: Point2
     , _crOldPos         :: Point2
@@ -325,7 +318,6 @@ data Creature = Creature
     , _crTwist          :: Float
     , _crType           :: CreatureType
     , _crID             :: Int
-    , _crUpdate         :: Creature -> World -> World
     , _crRad            :: Float
     , _crMass           :: Float
     , _crHP             :: Int
@@ -1344,7 +1336,6 @@ makeLenses ''EquipParams
 makeLenses ''TerminalCommand
 makeLenses ''TerminalInput
 makeLenses ''GenParams
-makeLenses ''CreatureType
 makeLenses ''Corpse
 ----- ROOM LENSES