diff --git a/src/Test.hs b/src/Test.hs
index 38de3cd..9933ef5 100644
--- a/src/Test.hs
+++ b/src/Test.hs
@@ -187,8 +187,8 @@ drawTile ai ctx pr pc row col img =
         drawImage
         drawPlayer
       else do
-        if all (\maxr -> pr <= (fromIntegral (floor pr :: Int)) + maxr) maxrs &&
-           all (\minc -> pc >= (fromIntegral (floor pc :: Int)) + minc) mincs
+        if any (\minr -> pr <= (fromIntegral (floor pr :: Int)) + minr) maxrs &&
+           any (\maxc -> pc >= (fromIntegral (floor pc :: Int)) + maxc) mincs
         then do
           drawPlayer
           drawImage