Add Binary instances

src/Dodge/Data/PathGraph.hs

@@ -14,6 +14,7 @@ The warnings have been disabled.
 -}
 module Dodge.Data.PathGraph where
 
+import Data.Binary
 import Flat
 import LinearHelp ()
 import Control.Lens
@@ -43,6 +44,7 @@ data PathEdge = PathEdge
     , _peObstacles :: Set.Set EdgeObstacle
     }
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary PathEdge 
 
 instance ToJSON PathEdge where
     toEncoding = genericToEncoding defaultOptions
@@ -55,6 +57,7 @@ data EdgeObstacle
     | AutoDoorObstacle
     | WallObstacle
     deriving (Eq, Ord, Show, Read, Bounded, Enum, Generic, Flat)
+instance Binary EdgeObstacle
 
 instance ToJSON EdgeObstacle where
     toEncoding = genericToEncoding defaultOptions