Go back to JSON encoding

src/Dodge/Data/Item/Effect.hs

@@ -5,9 +5,6 @@
 
 module Dodge.Data.Item.Effect where
 
-import TH.Derive
-import Data.Store
-import Data.Binary
 import Flat
 import Control.Lens
 import Data.Aeson
@@ -31,14 +28,11 @@ data ItInvEffect
     | RemoveShieldWall
     | EffectWhileHeld ItInvEffect
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store ItInvEffect) |]))
 
 data ItFloorEffect = NoFloorEffect
-    | HackItFloorEffect
     deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data ItDropEffect = NoDropEffect
-    | HackItDropEffect
     deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 makeLenses ''ItEffect
@@ -46,6 +40,3 @@ deriveJSON defaultOptions ''ItEffect
 deriveJSON defaultOptions ''ItInvEffect
 deriveJSON defaultOptions ''ItFloorEffect
 deriveJSON defaultOptions ''ItDropEffect
-$($(derive [d| instance Deriving (Store ItEffect ) |]))
-$($(derive [d| instance Deriving (Store ItDropEffect ) |]))
-$($(derive [d| instance Deriving (Store ItFloorEffect ) |]))