diff options
author | Sven G. Brönstrup | 2021-12-20 00:32:44 +0100 |
---|---|---|
committer | Sven G. Brönstrup | 2021-12-20 00:32:44 +0100 |
commit | 7e65bc46f66c6073c998cfaea2a9644cbb9b896a (patch) | |
tree | a0d932cc4c26b3c3e63b61c7e39df4b3c816fb94 /lib/Properties.hs | |
parent | 8f5af0492e7a82192d1fafda3d2c74421af4354d (diff) | |
parent | 5060f68b9728bf94818ee985c16c25511f248143 (diff) |
Merge branch 'main' into extended-scripts
Diffstat (limited to '')
-rw-r--r-- | lib/Properties.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index 25bbbd3..551c502 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -673,6 +673,7 @@ unwrapPath str f = case parsePath str of 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." + PathVarsDisallowed -> forbid "extended API variables are not allowed in asset paths." unwrapBadgeToken :: Text -> (BadgeToken -> LintWriter a) -> LintWriter a unwrapBadgeToken str f = case parseToken str of @@ -700,6 +701,7 @@ unwrapURI sym p@(Property name _) f g = unwrapString p $ \link -> do \\"" <> name <> "\"; allowed " <> (if length allowed == 1 then "is " else "are ") <> intercalate ", " (fmap (<> "://") allowed) <> "." + VarsDisallowed -> "extended API links are disallowed in links" -- | just asserts that this is a string isString :: Property -> LintWriter a |