diff --git a/.gitlab-ci.yml b/.gitlab-ci.yml index 79b5e368faf9159e82046530605f70e3c94baedb..a74364b2ad9888184f2d723c5d89d147133c8a86 100644 --- a/.gitlab-ci.yml +++ b/.gitlab-ci.yml @@ -4,6 +4,9 @@ stages: - build build-job: + only: + refs: + - main stage: build script: - stack build diff --git a/lib/Properties.hs b/lib/Properties.hs index 75b69ae4c8faaf99aa51df7a2ad5def39701aae5..970424aef3c066f33695f643f80a3e3b258a747a 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -227,6 +227,9 @@ checkLayer = do checkObjectProperty :: Object -> Property -> LintWriter Layer checkObjectProperty obj p@(Property name _) = case name of + "url" -> unwrapURI (Proxy @"website") p + (dependsOn . Link) + (const $ forbid "using \"url\" to open local html files is disallowed.") "url" -> do pure () unwrapURI (Proxy @"website") p @@ -408,7 +411,7 @@ checkTileLayerProperty p@(Property name _value) = case name of suggestProperty $ Property "openWebsiteTrigger" (StrProp "onaction") unwrapURI (Proxy @"website") p (dependsOn . Link) - (dependsOn . Local) + (const $ forbid "using openWebsite to access local html files is disallowed.") "openWebsiteTrigger" -> do isString p requireProperty "openWebsite"