Attempt to improve perfomance

2022-08-25 09:52:12 +01:00
parent 6973663055
commit 920bfdbc8e
18 changed files with 60 additions and 311 deletions
@@ -26,7 +26,7 @@ data PathGraph = PathGraph
    { _pgGraph :: Gr Point2 PathEdge
    , _pgNodeMap :: Map Point2 Int
    , _pgNodeCount :: Int
-    , _pgEdgeMap :: Map (V2 Point2) (Int, Int, PathEdge)
+    , _pgEdgeMap :: Map (V2 Point2) PathEdgeNodes
    }
    deriving (Eq, Show, Read) --, Generic)