{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE StrictData #-}
module Dodge.Data.RadarSweep where
import GHC.Generics
import Data.Aeson
import Dodge.Data.Object
import Geometry.Data
import Control.Lens
data RadarSweep = RadarSweep
    { _rsPos    :: Point2
    , _rsRad    :: Float
    , _rsObject :: ObjectType
    , _rsTimer  :: Int
    }
  deriving (Eq,Ord,Show,Read,Generic)
instance ToJSON RadarSweep  where
    toEncoding = genericToEncoding defaultOptions
instance FromJSON RadarSweep 
makeLenses ''RadarSweep