Add Store instances

src/Dodge/Data/Item/HeldUse.hs

@@ -5,6 +5,8 @@
 
 module Dodge.Data.Item.HeldUse where
 
+import TH.Derive
+import Data.Store
 import Data.Binary
 import Flat
 import Data.Aeson
@@ -29,13 +31,13 @@ data HeldUse
     | HeldForceField
     | HeldShatter
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary HeldUse
+$($(derive [d| instance Deriving (Store HeldUse) |]))
 
 data Cuse
     = CDoNothing
     | CHeal Int
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary Cuse
+$($(derive [d| instance Deriving (Store Cuse) |]))
 
 data Euse
     = EDoNothing
@@ -47,7 +49,7 @@ data Euse
     | EonWristShield
     | EoffWristShield
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary Euse
+$($(derive [d| instance Deriving (Store Euse) |]))
 
 data Luse
     = LDoNothing
@@ -57,7 +59,7 @@ data Luse
     | LUnsafeBlink
     | LBoost
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary Luse
+$($(derive [d| instance Deriving (Store Luse) |]))
 
 data HeldMod
     = HeldModNothing
@@ -96,7 +98,7 @@ data HeldMod
     | RevolverXRepeatMod
     | BangConeMod
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary HeldMod
+$($(derive [d| instance Deriving (Store HeldMod) |]))
 
 deriveJSON defaultOptions ''Cuse
 deriveJSON defaultOptions ''HeldMod