Reify CrGroupUpdate

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.CrGroupParams
     , module Dodge.Data.Corpse
     , module Dodge.Data.ActionPlan
     , module Dodge.Data.CreatureEffect
@@ -73,6 +74,7 @@ module Dodge.Data
     , module Dodge.Data.RadarBlip
     , module Dodge.Data.PathGraph
     ) where
+import Dodge.Data.CrGroupParams
 import Dodge.Data.Corpse
 import Dodge.Data.ActionPlan
 import Dodge.Data.CreatureEffect
@@ -270,7 +272,7 @@ data World = World
 data WorldHammer
     = SubInvHam
     | DoubleMouseHam
-  deriving (Eq,Ord,Show,Enum,Bounded)
+  deriving (Eq,Ord,Show,Read,Enum,Bounded)
 
 newtype GenParams = GenParams
     { _sensorCoding :: M.Map DamageType (PaletteColor,DecorationShape)
@@ -330,12 +332,6 @@ data MenuOption
         { _moKey    :: Scancode
         , _moEff    :: Universe -> IO (Maybe Universe)
         }
-data CrGroupParams = CrGroupParams
-    { _crGroupParamID   :: Int
-    , _crGroupIDs       :: IS.IntSet
-    , _crGroupCenter    :: Point2
-    , _crGroupUpdate    :: World -> CrGroupParams -> Maybe CrGroupParams
-    }
 data Gust = Gust
     { _guID  :: Int
     , _guPos :: Point2
@@ -735,7 +731,6 @@ makeLenses ''Proj
 makeLenses ''Modification
 makeLenses ''Particle
 makeLenses ''PressPlate
-makeLenses ''CrGroupParams
 makeLenses ''Door
 makeLenses ''Terminal
 makeLenses ''Machine