the lobby is allowed to contain defunct links

1 files changed, 15 insertions, 12 deletions

diff --git a/lib/Properties.hs b/lib/Properties.hs
index 51fa567..341426d 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -702,18 +702,21 @@ unwrapURI sym p@(Property name _) f g = unwrapString p $ \link -> do
       setProperty name uri
       f uri
     Left NotALink -> unwrapPath link g
-    Left err -> complain $ case err of
-      IsBlocked -> link <> " is a blocked site."
-      DomainDoesNotExist domain -> "The domain " <> domain <> " does not exist; \
-                                   \please make sure it is spelled correctly."
-      SchemaDoesNotExist schema ->
-        "the URI schema " <> schema <> ":// cannot be used."
-      WrongScope schema allowed ->
-        "the URI schema " <> schema <> ":// cannot be used in property \
-        \\"" <> name <> "\"; allowed "
-        <> (if length allowed == 1 then "is " else "are ")
-        <> intercalate ", " (fmap (<> "://") allowed) <> "."
-      VarsDisallowed -> "extended API links are disallowed in links"
+    Left err -> do
+      isLobby <- lintConfig configAssemblyTag <&> (== "lobby")
+
+      (if isLobby then warn else complain) $ case err of
+        IsBlocked -> link <> " is a blocked site."
+        DomainDoesNotExist domain -> "The domain " <> domain <> " does not exist; \
+                                     \please make sure it is spelled correctly."
+        SchemaDoesNotExist schema ->
+          "the URI schema " <> schema <> ":// cannot be used."
+        WrongScope schema allowed ->
+          "the URI schema " <> schema <> ":// cannot be used in property \
+          \\"" <> name <> "\"; allowed "
+          <> (if length allowed == 1 then "is " else "are ")
+          <> intercalate ", " (fmap (<> "://") allowed) <> "."
+        VarsDisallowed -> "extended API links are disallowed in links"