Move from store to flat

src/Dodge/Data/Item/Params.hs

@@ -1,8 +1,11 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 module Dodge.Data.Item.Params where
 
+import Flat
 import Color
 import Control.Lens
 import Data.Aeson
@@ -68,13 +71,13 @@ data ItemParams
         }
     | ParamMID {_paramMID :: Maybe Int}
     | BoostPropIX {_boostPropIX :: Maybe Int}
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data ShrinkGunStatus = FullSize | Shrunk
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data PreviousArcEffect = NoPreviousArcEffect | PerturbTillBreakPreviousArc
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data GunBarrels
     = MultiBarrel
@@ -87,7 +90,7 @@ data GunBarrels
         , _brlInaccuracy :: Float
         }
     | SingleBarrel {_brlInaccuracy :: Float}
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data Nozzle = Nozzle
     { _nzPressure :: Float
@@ -97,13 +100,13 @@ data Nozzle = Nozzle
     , _nzWalkSpeed :: Float
     , _nzLength :: Float
     }
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data BarrelSpread
     = AlignedBarrels
     | SpreadBarrels {_spreadAngle :: Float}
     | RotatingBarrels {_rotatingBarrelInaccuracy :: Float}
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 makeLenses ''BarrelSpread
 makeLenses ''ItemParams
@@ -115,9 +118,3 @@ deriveJSON defaultOptions ''PreviousArcEffect
 deriveJSON defaultOptions ''GunBarrels
 deriveJSON defaultOptions ''Nozzle
 deriveJSON defaultOptions ''BarrelSpread
-$($(derive [d| instance Deriving (Store ItemParams) |]))
-$($(derive [d| instance Deriving (Store ShrinkGunStatus) |]))
-$($(derive [d| instance Deriving (Store PreviousArcEffect) |]))
-$($(derive [d| instance Deriving (Store GunBarrels) |]))
-$($(derive [d| instance Deriving (Store Nozzle) |]))
-$($(derive [d| instance Deriving (Store BarrelSpread) |]))