Add generic derivations and To/FromJSON instances

src/Dodge/Data/WorldEffect.hs

@@ -1,4 +1,10 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE DeriveGeneric #-}
 module Dodge.Data.WorldEffect where
+import Data.Aeson
+import GHC.Generics
 import Dodge.Data.CreatureEffect
 import Sound.Data
 import Geometry.Data
@@ -13,15 +19,24 @@ data WdWd = NoWorldEffect
     | MakeStartCloudAt Point3
     | TorqueCr Float Int
     | WdWdNegateTrig Int
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON WdWd  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON WdWd 
 data WdP2 = WdP2Const Point2
     | WdYouPos
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON WdP2  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON WdP2 
 data MdWdWd = MdWdId
     | MdTrigIf MdWdWd MdWdWd
     | MdSetLSCol Point3
     | MdFlickerUpdate
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON MdWdWd  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON MdWdWd 
 data WdBl = WdTrig Int
     | WdBlDoorMoving Int
     | WdBlConst Bool
@@ -29,18 +44,30 @@ data WdBl = WdTrig Int
     | WdBlCrFilterNearPoint Float Point2 CrBl
     | WdBlBtOn Int
     | WdBlBtNotOff Int
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON WdBl  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON WdBl 
 data WdP2f = WdP2f0
     | WdP2fDoorPosition Int
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON WdP2f  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON WdP2f 
 data DrWdWd = DrWdId
     | DrWdMakeDoorDebris
     | DrWdMechanismStepwise Int [Int] [(Point2,Point2)]
     | DoorMechanism
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON DrWdWd  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON DrWdWd 
 data TmWdWd = TmWdId
     | TmWdWdDisconnectTerminal
     | TmWdWdfromWdWd WdWd
     | TmWdWdTermSound SoundID
     | TmWdWdDoDeathTriggers
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON TmWdWd  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON TmWdWd