Refactor creature zoning

src/Dodge/Data/Zoning.hs

@@ -4,6 +4,7 @@ module Dodge.Data.Zoning where
 import Geometry.Data
 import Control.Lens
 import qualified IntMapHelp as IM
+import qualified Data.IntSet as IS
 import StreamingHelp
 
 data Zoning t a = Zoning
@@ -12,5 +13,7 @@ data Zoning t a = Zoning
     , _znFunc       :: Float -> a -> StreamOf Int2
 --    , _znInsert     :: a -> t a -> t a
     }
+newtype CrZoning = CrZoning {_getCrZoning :: IM.IntMap (IM.IntMap IS.IntSet)}
 
 makeLenses ''Zoning
+makeLenses ''CrZoning