Make makePathBetween respect obstacles

src/Dodge/Render/ShapePicture.hs

@@ -79,7 +79,7 @@ extraPics cfig w = pictures (_decorations w)
     <> concatMapPic clDraw (_clouds w      )
     <> concatMapPic ppDraw (_pressPlates w )
     <> viewClipBounds cfig w
-    <> debugDraw cfig w
+--    <> debugDraw cfig w
 
 debugDraw :: Configuration -> World -> Picture
 {-# INLINE debugDraw #-}
@@ -123,7 +123,7 @@ drawCreatureDisplayTexts w = foldMap (creatureDisplayText w) (_creatures w)
 
 drawPathBetween :: World -> Picture
 drawPathBetween w = setLayer DebugLayer
-    $  color yellow (foldMap (arrowPath . mapMaybe nodepos) nodelist)
+    $  color rose (foldMap (arrowPath . mapMaybe nodepos) nodelist)
     <> foldMap (color green . arrow sp) (nodepos =<< walkableNodeNear w sp)
     <> foldMap (color cyan . flip arrow ep) (nodepos =<< walkableNodeNear w ep)
   where