summaryrefslogtreecommitdiff
path: root/lib/Properties.hs
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/Properties.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs
index 797a1d7..05020f5 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -225,7 +225,9 @@ checkLayer = do
checkObjectProperty :: Object -> Property -> LintWriter Layer
checkObjectProperty obj p@(Property name _) = case name of
- "url" -> pure ()
+ "url" -> unwrapURI (Proxy @"website") p
+ (dependsOn . Link)
+ (const $ forbid "using \"url\" to open local html files is disallowed.")
"allowApi" -> forbidProperty name
"getBadge" -> do
when (1 /= length (getProperties obj))
@@ -329,7 +331,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"