Cleanup, move towards unifying zones

src/Dodge/Zone/Data.hs

@@ -0,0 +1,13 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Zone.Data
+    where
+import Control.Lens
+import qualified Data.IntMap.Strict as IM
+
+data Zone a = Zone
+    { _znObjects :: IM.IntMap (IM.IntMap a)
+    , _znSize    :: Float
+    }
+
+makeLenses ''Zone