Add Store instances

src/Dodge/Data/WorldEffect.hs

@@ -5,6 +5,8 @@
 
 module Dodge.Data.WorldEffect where
 
+import TH.Derive
+import Data.Store
 import Data.Binary
 import Flat
 import Data.Aeson
@@ -19,7 +21,7 @@ data ItCrWdWd
     = ItCrWdId
     | ItCrWdItemEffect
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary ItCrWdWd
+$($(derive [d| instance Deriving (Store ItCrWdWd) |]))
 
 data WdWd
     = NoWorldEffect
@@ -36,13 +38,13 @@ data WdWd
     | WdWdFromItCrixWdWd Item Int ItCrWdWd
     deriving (Eq, Show, Read, Generic)
     --hderiving (Eq, Show, Read, Generic, Flat)
-    --instance Binary WdWd
+$($(derive [d| instance Deriving (Store WdWd) |]))
 
 data WdP2
     = WdP2Const Point2
     | WdYouPos
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary WdP2
+$($(derive [d| instance Deriving (Store WdP2) |]))
 
 data MdWdWd
     = MdWdId
@@ -50,7 +52,7 @@ data MdWdWd
     | MdSetLSCol Point3
     | MdFlickerUpdate
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary MdWdWd
+$($(derive [d| instance Deriving (Store MdWdWd) |]))
 
 data WdBl
     = WdTrig Int
@@ -61,13 +63,13 @@ data WdBl
     | WdBlBtOn Int
     | WdBlBtNotOff Int
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary WdBl
+$($(derive [d| instance Deriving (Store WdBl) |]))
 
 data WdP2f
     = WdP2f0
     | WdP2fDoorPosition Int
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary WdP2f
+$($(derive [d| instance Deriving (Store WdP2f) |]))
 
 data DrWdWd
     = DrWdId
@@ -75,7 +77,7 @@ data DrWdWd
     | DrWdMechanismStepwise Int [Int] [(Point2, Point2)]
     | DoorMechanism
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary DrWdWd
+$($(derive [d| instance Deriving (Store DrWdWd) |]))
 
 data TmWdWd
     = TmWdId
@@ -85,7 +87,7 @@ data TmWdWd
     | TmWdWdDoDeathTriggers
     deriving (Eq, Show, Read, Generic)
     --hderiving (Eq, Show, Read, Generic, Flat)
-    --instance Binary TmWdWd
+$($(derive [d| instance Deriving (Store TmWdWd) |]))
 
 deriveJSON defaultOptions ''ItCrWdWd
 deriveJSON defaultOptions ''WdWd