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)

1 files 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