summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/Properties.hs6
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