From c56ffe0e9454b34992bc7ddcc25a2d1c9894128e Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Mon, 27 Dec 2021 01:33:07 +0100
Subject: type systems don't protect against off-by-one

---
 lib/Properties.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Properties.hs b/lib/Properties.hs
index 4e8c7d9..9a22bb5 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -168,7 +168,7 @@ checkTileset = do
   unless (tilesetTilewidth tileset == 32 && tilesetTileheight tileset == 32)
     $ complain "Tilesets must have tile size 32x32."
 
-  unless (tilesetImageheight tileset < 4096 && tilesetImagewidth tileset < 4096)
+  when (tilesetImageheight tileset > 4096 || tilesetImagewidth tileset > 4096)
     $ warn "Tilesets should not be larger than 4096x4096 pixels in total."
 
   when (isJust (tilesetSource tileset))
-- 
cgit v1.2.3