Add Store instances

src/Dodge/Data/Item/Use/Equipment.hs

@@ -8,6 +8,8 @@ module Dodge.Data.Item.Use.Equipment (
     module Dodge.Data.Item.Use.Equipment,
 ) where
 
+import TH.Derive
+import Data.Store
 import Data.Binary
 import Flat
 import Control.Lens
@@ -25,16 +27,16 @@ data EquipEffect = EquipEffect
     , _eeViewDist :: Maybe Float
     }
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary EquipEffect 
 
 data EquipParams
     = NoEquipParams
     | EquipID {_eparamID :: Int}
     | EquipCounter {_eparamInt :: Int}
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary EquipParams
 
 makeLenses ''EquipEffect
 makeLenses ''EquipParams
 deriveJSON defaultOptions ''EquipEffect
 deriveJSON defaultOptions ''EquipParams
+$($(derive [d| instance Deriving (Store EquipEffect ) |]))
+$($(derive [d| instance Deriving (Store EquipParams) |]))