From 668daf92d3b1c32aaf2c64a8f8e162c485bd5efc Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Tue, 14 Dec 2021 00:15:45 +0100
Subject: downgrade disallowed path-related lint levels

(these were `error` before, which didn't really make sense, since
workadventure can deal with them, they're just not allowed at rc3)
---
 lib/Properties.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/Properties.hs')

diff --git a/lib/Properties.hs b/lib/Properties.hs
index 592aac4..cabc2b7 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -516,9 +516,9 @@ unwrapPath str f = case parsePath str of
       then f p
       else complain $ "cannot acess paths \"" <> str <> "\" which is outside your repository."
   NotAPath -> complain $ "path \"" <> str <> "\" is invalid."
-  AbsolutePath -> complain "absolute paths are disallowed. Use world:// instead."
-  UnderscoreMapLink -> complain "map links using /_/ are disallowed. Use world:// instead."
-  AtMapLink -> complain "map links using /@/ are disallowed. Use world:// instead."
+  AbsolutePath -> forbid "absolute paths are disallowed. Use world:// instead."
+  UnderscoreMapLink -> forbid "map links using /_/ are disallowed. Use world:// instead."
+  AtMapLink -> forbid "map links using /@/ are disallowed. Use world:// instead."
 
 unwrapBadgeToken :: Text -> (BadgeToken -> LintWriter a) -> LintWriter a
 unwrapBadgeToken str f = case parseToken str of
-- 
cgit v1.2.3