Add Store instances

src/Dodge/Data/Item/Misc.hs

@@ -5,6 +5,8 @@
 
 module Dodge.Data.Item.Misc where
 
+import TH.Derive
+import Data.Store
 import Data.Binary
 import Flat
 import Control.Lens
@@ -19,7 +21,7 @@ data ItemDimension = ItemDimension
     , _dimAttachPos :: Point3
     }
     deriving (Eq, Show, Read, Generic, Flat)
-instance Binary ItemDimension 
+$($(derive [d| instance Deriving (Store ItemDimension ) |]))
 
 data ItemPortage
     = HeldItem
@@ -29,18 +31,18 @@ data ItemPortage
     | WornItem
     | NoPortage
     deriving (Eq, Show, Read, Generic, Flat)
-instance Binary ItemPortage
+$($(derive [d| instance Deriving (Store ItemPortage) |]))
 
 --data ItemValue = ItemValue
 --    { _ivInt :: Int
 --    , _ivType :: ItemValueType
 --    }
 --    deriving (Eq, Show, Read, Generic, Flat)
---    instance Binary ItemValue 
+--    $($(derive [d| instance Deriving (Store ItemValue ) |]))
 --
 --data ItemValueType = MundaneItem | ArtefactItem
 --    deriving (Eq, Show, Read, Generic, Flat)
---    instance Binary ItemValueType 
+--    $($(derive [d| instance Deriving (Store ItemValueType ) |]))
 
 makeLenses ''ItemDimension
 makeLenses ''ItemPortage