diff options
| author | stuebinm | 2022-04-14 01:00:09 +0200 |
|---|---|---|
| committer | stuebinm | 2022-04-14 01:00:09 +0200 |
| commit | f116e6487f1041f12b9ea1e4e6a7aef18ff783bb (patch) | |
| tree | 2e1c9f18a97cfef8c31b517125a3d350226dce15 | |
| parent | 3bcc4a608e078733c210e8927421b255a6829cad (diff) | |
linter: link hackery for divoc fallback
| -rw-r--r-- | lib/LintConfig.hs | 2 | ||||
| -rw-r--r-- | lib/Properties.hs | 4 |
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." |