Go back to JSON encoding

src/Dodge/Data/Item.hs

@@ -1,6 +1,6 @@
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
-{-# LANGUAGE StrictData #-}
+--{-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 module Dodge.Data.Item (
@@ -17,9 +17,6 @@ module Dodge.Data.Item (
     module Dodge.Data.Item.Location,
 ) where
 
-import TH.Derive
-import Data.Store
-import Data.Binary
 import Flat
 import Color
 import Control.Lens
@@ -54,7 +51,6 @@ data Item = Item
     , _itParams :: ItemParams
     }
     deriving (Eq, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store Item ) |]))
 
 _itUseAimStance :: Item -> AimStance
 _itUseAimStance = _aimStance . _heldAim . _itUse