Go back to JSON encoding

src/Dodge/Data/PathGraph.hs

@@ -14,9 +14,6 @@ The warnings have been disabled.
 -}
 module Dodge.Data.PathGraph where
 
-import TH.Derive
-import Data.Store
-import Data.Binary
 import Flat
 import LinearHelp ()
 import Control.Lens
@@ -58,7 +55,6 @@ data EdgeObstacle
     | AutoDoorObstacle
     | WallObstacle
     deriving (Eq, Ord, Show, Read, Bounded, Enum, Generic, Flat)
-$($(derive [d| instance Deriving (Store EdgeObstacle) |]))
 
 instance ToJSON EdgeObstacle where
     toEncoding = genericToEncoding defaultOptions
@@ -74,5 +70,3 @@ deriving instance (Flat (Gr Point2 PathEdge))
 
 makeLenses ''PathGraph
 makeLenses ''PathEdge
-$($(derive [d| instance Deriving (Store PathEdge ) |]))
-$($(derive [d| instance Deriving (Store (Gr Point2 PathEdge) ) |]))