Reify CrGroupUpdate

src/Dodge/Update.hs

@@ -4,6 +4,7 @@ Module      : Dodge.Update
 Description : Simulation update
 -}
 module Dodge.Update ( updateUniverse ) where
+import Dodge.CrGroupUpdate
 import Dodge.Zoning.Cloud
 import Dodge.Zoning.Creature
 import Dodge.WorldEffect
@@ -201,7 +202,7 @@ updateIMl' fim fup w = foldl' (flip fup) w (fim w)
 
 updateCreatureGroups :: World -> World
 updateCreatureGroups w = w & creatureGroups %~ 
-    IM.mapMaybe (\cgp -> _crGroupUpdate cgp w cgp)
+    IM.mapMaybe (\cgp -> doCrGroupUpdate (_crGroupUpdate cgp) w cgp)
 
 updateDistortions :: World -> World
 updateDistortions = distortions %~ mapMaybe updateDistortion