diff options
| -rw-r--r-- | lib/Properties.hs | 6 |
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 |