Go back to JSON encoding

src/Dodge/Data/Item/Misc.hs

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