refine pathfinding

2018-05-14 19:34:07 +02:00 · 2018-05-14 19:34:07 +02:00 · 1c9076c838
commit 1c9076c838
parent 72c8adb4f5
1 changed files with 1 additions and 1 deletions
--- a/src/Util.hs
+++ b/src/Util.hs
@ -150,7 +150,7 @@ naviGraph imgmat (V2 r c) =
          (\acc (or, oc) ->
            if null (fromMaybe [] $
              imgObstacle <$> M.safeGet (r + or) (c + oc) imgmat)
-              && any null
+              && all null
              (map
              (\(oor, ooc) -> fromMaybe [] $
                imgObstacle <$> M.safeGet (r + oor) (c + ooc) imgmat)