Commit before adjusting wall zoning

2022-07-01 09:17:22 +01:00
parent 4e893931a8
commit 870225b6b6
8 changed files with 40 additions and 39 deletions
@@ -10,7 +10,7 @@ data PathGraph = PathGraph
    { _pgGraph      :: Gr Point2 PathEdge
    , _pgNodeMap    :: Map Point2 Int
    , _pgNodeCount  :: Int
-    , _pgEdgeMap    :: Map (V2 Point2) Int2
+    , _pgEdgeMap    :: Map (V2 Point2) (Int,Int,PathEdge)
    }
 data PathEdge = PathEdge
    {_peStart :: Point2