Create datatypes for radar sweeps

src/Dodge/Data/Object.hs

@@ -11,4 +11,5 @@ data Object
     | ObLightSource
     | ObProp
     | ObTrigger
+    | ObItem
   deriving (Eq,Show,Ord,Read,Enum,Bounded)

src/Dodge/Data/RadarSweep.hs

@@ -0,0 +1,14 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.RadarSweep where
+import Dodge.Data.Object
+import Geometry.Data
+import Control.Lens
+
+data RadarSweep = RadarSweep
+    { _rsPos    :: Point2
+    , _rsRad    :: Float
+    , _rsObject :: Object
+    , _rsTimer  :: Int
+    }
+makeLenses ''RadarSweep