Move from store to flat

src/Dodge/Data/Item.hs

@@ -1,3 +1,5 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
@@ -15,6 +17,7 @@ module Dodge.Data.Item (
     module Dodge.Data.Item.Location,
 ) where
 
+import Flat
 import Data.Store
 import TH.Derive
 import Color
@@ -49,12 +52,10 @@ data Item = Item
     , _itValue :: ItemValue
     , _itParams :: ItemParams
     }
-    deriving (Eq, Show, Read)
+    deriving (Eq, Show, Read, Generic, Flat)
 
 _itUseAimStance :: Item -> AimStance
 _itUseAimStance = _aimStance . _heldAim . _itUse
 
 makeLenses ''Item
 deriveJSON defaultOptions ''Item
-
-$($(derive [d| instance Deriving (Store Item) |]))