Skip to content
Snippets Groups Projects
Commit 8926ff6f authored by stuebinm's avatar stuebinm
Browse files

the lobby is allowed to contain defunct links

parent e6390771
No related branches found
No related tags found
No related merge requests found
......@@ -702,7 +702,10 @@ 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
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."
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment