Add generic derivations and To/FromJSON instances

src/Dodge/Data/ArcStep.hs

@@ -1,16 +1,25 @@
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.ArcStep where
 import Dodge.Data.CrWlID
 import Geometry.Data
 import Control.Lens
+import GHC.Generics
+import Data.Aeson
 data ArcStep = ArcStep
     { _asPos :: Point2
     , _asDir :: Float
     , _asObject :: CrWlID --Maybe (Either Creature Wall)
     }
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON ArcStep  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON ArcStep 
 data NextArcStep = EndArc
     | DefaultArcStep
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON NextArcStep  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON NextArcStep 
 makeLenses ''ArcStep