Refactor doors

src/Dodge/Data/PathGraph.hs

@@ -12,19 +12,20 @@ data PathGraph = PathGraph
     , _pgNodeCount  :: Int
     , _pgEdgeMap    :: Map (V2 Point2) (Int,Int,PathEdge)
     }
+  deriving (Eq,Show,Read)
 data PathEdge = PathEdge
     {_peStart :: Point2
     ,_peEnd   :: Point2
     ,_peDist  :: Float
     ,_peObstacles :: Set.Set EdgeObstacle
     }
-  deriving (Eq,Ord,Show)
+  deriving (Eq,Ord,Show,Read)
 data EdgeObstacle
     = BlockObstacle
     | DoorObstacle
     | AutoDoorObstacle
     | WallObstacle
-  deriving (Eq,Ord,Show,Bounded,Enum)
+  deriving (Eq,Ord,Show,Read,Bounded,Enum)
 
 makeLenses ''PathGraph
 makeLenses ''PathEdge