Remove some deriving clauses

src/Dodge/Data/PathGraph.hs

@@ -1,11 +1,11 @@
 --{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE DeriveAnyClass #-}
-{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE StandaloneDeriving #-}
+--{-# LANGUAGE DeriveAnyClass #-}
+--{-# LANGUAGE DeriveGeneric #-}
+--{-# LANGUAGE ScopedTypeVariables #-}
+--{-# LANGUAGE StandaloneDeriving #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
-{-# LANGUAGE FlexibleInstances #-}
+--{-# LANGUAGE FlexibleInstances #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 
 {- |
@@ -45,10 +45,10 @@ data EdgeObstacle
     | WallObstacle
     deriving (Eq, Ord, Show, Bounded, Enum, Read) --Generic, Flat)
 
-instance (ToJSON a, ToJSON b) => ToJSON (Gr a b) where
-    toEncoding = genericToEncoding defaultOptions
-
-instance (FromJSON a, FromJSON b) => FromJSON (Gr a b)
+--instance (ToJSON a, ToJSON b) => ToJSON (Gr a b) where
+--    toEncoding = genericToEncoding defaultOptions
+--
+--instance (FromJSON a, FromJSON b) => FromJSON (Gr a b)
 
 --deriving instance (Flat (Gr Point2 PathEdge))
 
@@ -57,3 +57,4 @@ makeLenses ''PathEdge
 deriveJSON defaultOptions ''PathGraph
 deriveJSON defaultOptions ''PathEdge
 deriveJSON defaultOptions ''EdgeObstacle
+deriveJSON defaultOptions ''Gr