Move from store to flat

src/Dodge/Data/Equipment/Misc.hs

@@ -1,8 +1,11 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 module Dodge.Data.Equipment.Misc where
 
+import Flat
 import Data.Aeson
 import Data.Aeson.TH
 import TH.Derive
@@ -15,7 +18,7 @@ data EquipSite
     | GoesOnWrist
     | GoesOnLegs
     | GoesOnSpecial
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data EquipPosition
     = OnHead
@@ -25,7 +28,7 @@ data EquipPosition
     | OnRightWrist
     | OnLegs
     | OnSpecial
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 instance ToJSONKey EquipPosition
 
@@ -33,5 +36,3 @@ instance FromJSONKey EquipPosition
 
 deriveJSON defaultOptions ''EquipSite
 deriveJSON defaultOptions ''EquipPosition
-$($(derive [d| instance Deriving (Store EquipSite) |]))
-$($(derive [d| instance Deriving (Store EquipPosition) |]))