Make pathedge zoning use sets, probably doesn't help

src/Dodge/Data/PathGraph.hs

@@ -30,6 +30,13 @@ data PathGraph = PathGraph
     }
     deriving (Eq, Show, Read) --, Generic)
 
+data PathEdgeNodes = PathEdgeNodes
+    { _penStart :: Int
+    , _penEnd :: Int
+    , _penPathEdge :: PathEdge
+    }
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+
 data PathEdge = PathEdge
     { _peStart :: Point2
     , _peEnd :: Point2
@@ -54,7 +61,9 @@ data EdgeObstacle
 
 makeLenses ''PathGraph
 makeLenses ''PathEdge
+makeLenses ''PathEdgeNodes
 deriveJSON defaultOptions ''EdgeObstacle
 deriveJSON defaultOptions ''PathEdge
+deriveJSON defaultOptions ''PathEdgeNodes
 deriveJSON defaultOptions ''Gr
 deriveJSON defaultOptions ''PathGraph