From ad18d241aa32e161349baf0396f5b83449b3d061 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Wed, 7 Mar 2018 21:56:15 +0100
Subject: [PATCH] fixing draw order again

---
 src/Test.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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