From 668daf92d3b1c32aaf2c64a8f8e162c485bd5efc Mon Sep 17 00:00:00 2001
From: stuebinm <stuebinm@disroot.org>
Date: Tue, 14 Dec 2021 00:15:45 +0100
Subject: [PATCH] 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(-)
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
--
GitLab