Add generic derivations and To/FromJSON instances

src/Dodge/Data/ItEffect.hs

@@ -1,6 +1,9 @@
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.ItEffect where
+import GHC.Generics
+import Data.Aeson
 import Control.Lens
 -- I believe this is called every frame, not sure when though
 data ItEffect 
@@ -27,8 +30,10 @@ data ItEffect
         , _ieDrop    :: ItDropEffect --Item -> Creature -> World -> World
         , _ieMID     :: Maybe Int
         }
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON ItEffect  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON ItEffect 
 data ItInvEffect = NoInvEffect
     | RewindEffect
     | ResetAttachmentEffect
@@ -36,9 +41,18 @@ data ItInvEffect = NoInvEffect
     | CreateHeldLight
     | CreateShieldWall
     | RemoveShieldWall
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON ItInvEffect  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON ItInvEffect 
 data ItFloorEffect = NoFloorEffect
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON ItFloorEffect  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON ItFloorEffect 
 data ItDropEffect = NoDropEffect
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON ItDropEffect  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON ItDropEffect 
 makeLenses ''ItEffect