Add generic derivations and To/FromJSON instances

src/Dodge/Data/RadarSweep.hs

@@ -1,15 +1,20 @@
+{-# 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 :: Object
+    , _rsObject :: ObjectType
     , _rsTimer  :: Int
     }
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON RadarSweep  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON RadarSweep 
 makeLenses ''RadarSweep