summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorstuebinm2022-04-14 01:00:09 +0200
committerstuebinm2022-04-14 01:00:09 +0200
commitf116e6487f1041f12b9ea1e4e6a7aef18ff783bb (patch)
tree2e1c9f18a97cfef8c31b517125a3d350226dce15
parent3bcc4a608e078733c210e8927421b255a6829cad (diff)
linter: link hackery for divoc fallback
-rw-r--r--lib/LintConfig.hs2
-rw-r--r--lib/Properties.hs4
2 files changed, 4 insertions, 2 deletions
diff --git a/lib/LintConfig.hs b/lib/LintConfig.hs
index b0fa3b0..ef4bb54 100644
--- a/lib/LintConfig.hs
+++ b/lib/LintConfig.hs
@@ -182,7 +182,7 @@ expandWorlds config = config { configUriSchemas = configUriSchemas' }
assemblysubsts =
DomainSubstitution (M.fromList generated) ["map"]
where generated = configAssemblies config
- <&> \slug -> (slug, "/@/"<>configEventSlug config<>"/"<>slug)
+ <&> \slug -> (slug, "/_/general/"<>configEventSlug config<>"/"<>slug)
instance (FromJSON (LintConfig a)) => Argument (LintConfig a) where
parseArgument str =
diff --git a/lib/Properties.hs b/lib/Properties.hs
index 291827f..66f817b 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -683,7 +683,9 @@ unwrapPath str f = case parsePath str of
else complain $ "cannot acess paths \"" <> str <> "\" which is outside your repository."
NotAPath -> complain $ "path \"" <> str <> "\" is invalid."
AbsolutePath -> forbid "absolute paths are disallowed. Use world:// instead."
- UnderscoreMapLink -> forbid "map links using /_/ are disallowed. Use world:// instead."
+ UnderscoreMapLink -> suggest "we know there's been some confusion about links; but you can \
+ \still use world:// instead of /_/ (though the latter is now also \
+ \allowed to keep maps working)"
AtMapLink -> forbid "map links using /@/ are disallowed. Use world:// instead."
PathVarsDisallowed -> forbid "extended API variables are not allowed in asset paths."