diff options
author | stuebinm | 2021-12-16 22:21:39 +0100 |
---|---|---|
committer | stuebinm | 2021-12-16 22:21:39 +0100 |
commit | a318f848178cade371abfa01a36bf15bab6ec58f (patch) | |
tree | 5aee3f70a106e094170e114d08556f997ceab7ea /lib/Properties.hs | |
parent | 7c29b52da8e1d73b26c74f278cfc66bb0febed16 (diff) |
special handling of world:// and assembly names
these now have their own top-level config attribute which is essentially a
shorthand for setting one that's deeper nested.
Diffstat (limited to 'lib/Properties.hs')
-rw-r--r-- | lib/Properties.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index 6a8c166..f6e2e0c 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -347,7 +347,11 @@ checkTileLayerProperty p@(Property name _value) = case name of "exitUrl" -> do forbidEmptyLayer unwrapURI (Proxy @"map") p - (dependsOn . MapLink) + (\link -> do + dependsOn (MapLink link) + warn $ "resolved link" <> link + setProperty "exitUrl" link + ) $ \path -> let ext = getExtension path in if | isOldStyle path -> @@ -568,7 +572,8 @@ unwrapURI sym p@(Property name _) f g = unwrapString p $ \link -> do Left NotALink -> unwrapPath link g Left err -> complain $ case err of IsBlocked -> link <> " is a blocked site." - InvalidLink -> link <> " is invalid." + DomainDoesNotExist domain -> "The domain " <> domain <> " does not exist; \ + \please make sure it is spelled correctly." SchemaDoesNotExist schema -> "the URI schema " <> schema <> ":// does not exist." WrongScope schema allowed -> |