Go back to JSON encoding

src/Dodge/Data/Creature.hs

@@ -17,9 +17,6 @@ module Dodge.Data.Creature (
     module Dodge.Data.Hammer,
 ) where
 
-import TH.Derive
-import Data.Store
-import Data.Binary
 import Flat
 import LinearHelp ()
 import Control.Lens
@@ -81,7 +78,6 @@ data Creature = Creature
     deriving (Eq, Show, Read, Generic, Flat)
 
 data CreatureCorpse = MakeDefaultCorpse
-    | HackCreatureCorpse
     deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data Intention = Intention
@@ -99,6 +95,3 @@ makeLenses ''Intention
 deriveJSON defaultOptions ''Creature
 deriveJSON defaultOptions ''CreatureCorpse
 deriveJSON defaultOptions ''Intention
-$($(derive [d| instance Deriving (Store Intention ) |]))
-$($(derive [d| instance Deriving (Store Creature ) |]))
-$($(derive [d| instance Deriving (Store CreatureCorpse ) |]))