Add Store instances

src/Dodge/Data/Item/Targeting.hs

@@ -5,6 +5,8 @@
 
 module Dodge.Data.Item.Targeting where
 
+import TH.Derive
+import Data.Store
 import Data.Binary
 import Flat
 import Control.Lens
@@ -23,7 +25,6 @@ data Targeting
         , _tgActive :: Bool
         }
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary Targeting
 
 data TargetUpdate
     = NoTargetUpdate
@@ -32,7 +33,6 @@ data TargetUpdate
     | TargetRBCreatureUpdate
     | TargetCursorUpdate
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary TargetUpdate
 
 data TargetDraw
     = NoTargetDraw
@@ -40,9 +40,11 @@ data TargetDraw
     | SimpleDrawTarget
     | TargetRBCreatureDraw
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary TargetDraw
 
 makeLenses ''Targeting
 deriveJSON defaultOptions ''Targeting
 deriveJSON defaultOptions ''TargetUpdate
 deriveJSON defaultOptions ''TargetDraw
+$($(derive [d| instance Deriving (Store Targeting) |]))
+$($(derive [d| instance Deriving (Store TargetDraw) |]))
+$($(derive [d| instance Deriving (Store TargetUpdate) |]))