From a318f848178cade371abfa01a36bf15bab6ec58f Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 16 Dec 2021 22:21:39 +0100
Subject: 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.
---
 lib/Properties.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'lib/Properties.hs')

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 ->
-- 
cgit v1.2.3