{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE StrictData #-}
module Dodge.Data.Zoning where
import Geometry.Data
import Control.Lens
import qualified Data.IntMap.Strict as IM
import StreamingHelp

data Zoning t a = Zoning
    { _znObjects    :: IM.IntMap (IM.IntMap (t a))
    , _znSize       :: Float
    , _znFunc       :: Float -> a -> StreamOf Int2
--    , _znInsert     :: a -> t a -> t a
    }

makeLenses ''Zoning
