13 lines
248 B
Haskell
13 lines
248 B
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
module Dodge.Zone.Data
|
|
where
|
|
import Control.Lens
|
|
import qualified Data.IntMap.Strict as IM
|
|
|
|
newtype Zone a = Zone
|
|
{ _znObjects :: IM.IntMap (IM.IntMap a)
|
|
}
|
|
|
|
makeLenses ''Zone
|