diff options
| author | Sven G. Brönstrup | 2021-12-20 12:00:41 +0100 |
|---|---|---|
| committer | Sven G. Brönstrup | 2021-12-20 12:00:41 +0100 |
| commit | 61901841d04b824668cd0f382ee039573ebb9479 (patch) | |
| tree | 18713971c40db3c65b4dcd2f3628403e0645d65c /lib/Properties.hs | |
| parent | 76073dd28c46f59c247f09846f43bd92c016f8af (diff) | |
| parent | 5c843aec6f9aafb37cf5d166e6ae74974e773daf (diff) | |
Merge branch 'main' into extended-scripts
Diffstat (limited to 'lib/Properties.hs')
| -rw-r--r-- | lib/Properties.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index 75b69ae..970424a 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" |