Fix leaky path graph creation

2022-06-29 23:17:45 +01:00
parent 84cb830804
commit 1abcf099e2
8 changed files with 65 additions and 28 deletions
@@ -269,7 +269,7 @@ drawPathing w = setLayer DebugLayer $
        <> concatMap dispInc (graphToIncidence gr)
  where
    dispInc (p,n) = setDepth 2 . uncurryV translate p . scale 0.1 0.1 $ text $ show n
-    gr = _pathGraph w
+    gr = _pgGraph $ _pathGraph w

 crDisplayInfo :: Configuration -> World -> Creature -> Maybe (Point2,[String])
 crDisplayInfo cfig w cr