From 766f883e88afbe476eac0433fc8c731756f64039 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 18 Dec 2021 14:57:58 +0100
Subject: remove mapImage property

---
 lib/Properties.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'lib')

diff --git a/lib/Properties.hs b/lib/Properties.hs
index beca7e8..0593658 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -85,7 +85,7 @@ checkMap = do
     $ \cols -> warn $ "collisions between entry and / or exit layers: " <> prettyprint cols
 
   let missingMetaInfo =
-        ["mapName","mapDescription","mapLink","mapImage"]
+        ["mapName","mapDescription","mapLink"]
         \\ fmap getName (getProperties tiledmap)
 
   unless (null missingMetaInfo)
@@ -108,7 +108,6 @@ checkMapProperty p@(Property name _) = case name of
   "mapDescription" -> naiveEscapeProperty p
   "mapCopyright" -> naiveEscapeProperty p
   "mapLink" -> pure ()
-  "mapImage" -> pure ()
   -- usually the linter will complain if names aren't in their
   -- "canonical" form, but allowing that here so that multiple
   -- scripts can be used by one map
@@ -270,7 +269,7 @@ checkTileLayerProperty p@(Property name _value) = case name of
     "jitsiTrigger" -> do
       isString p
       unlessHasProperty "jitsiTriggerMessage"
-       $ suggest "set \"jitsiTriggerMessage\" to a custom message to overwrite\
+       $ suggest "set \"jitsiTriggerMessage\" to a custom message to overwrite \
                  \the default \"press SPACE to enter in jitsi meet room\"."
       requireProperty "jitsiRoom"
     "jitsiTriggerMessage" -> do
-- 
cgit v1.2.3