Start implementing mapper item

src/Dodge/Data/RadarSweep.hs

@@ -8,6 +8,8 @@ module Dodge.Data.RadarSweep (
     module Dodge.Data.ObjectType,
 ) where
 
+import Dodge.Data.Item.Location
+import NewInt
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -19,6 +21,7 @@ data RadarSweep = RadarSweep
     , _rsRad :: Float
     , _rsObject :: ObjectType
     , _rsTimer :: Int
+    , _rsMapper :: Maybe (NewInt ItmInt)
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)