Remove creature records

src/Dodge/Zoning/Creature.hs

@@ -1,5 +1,6 @@
 module Dodge.Zoning.Creature where
 
+import Dodge.Creature.Radius
 import Control.Lens
 import qualified Data.IntSet as IS
 import Data.Maybe
@@ -41,7 +42,7 @@ crZoneSize :: Float
 crZoneSize = 15
 
 zoneOfCr :: Creature -> [Int2]
-zoneOfCr cr = zoneOfCirc crZoneSize (_crPos cr) (_crRad cr)
+zoneOfCr cr = zoneOfCirc crZoneSize (_crPos cr) (crRad $ cr ^. crType)
 
 minCrIXOn :: Ord a => (Creature -> a) -> IS.IntSet -> World -> Maybe Creature
 minCrIXOn f is w = fst <$> IS.foldl' g Nothing is