diff options
Diffstat (limited to '')
| -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 -> |