diff options
Diffstat (limited to 'lib/Properties.hs')
| -rw-r--r-- | lib/Properties.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index 50fec53..90aa3ad 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -153,7 +153,10 @@ checkLayerProperty p@(Property name _value) = case name of uselessEmptyLayer suggestProperty $ Property "openWebsiteTrigger" (StrProp "onaction") unwrapLink p $ \link -> if "https://" `isPrefixOf` link - then dependsOn $ Link link + then do + dependsOn $ Link link + prefix <- lintConfig configLinkPrefix + setProperty "openWebsite" (prefix <> link) else unwrapPath link (dependsOn . Local) "openWebsiteTrigger" -> do isString p @@ -173,7 +176,7 @@ checkLayerProperty p@(Property name _value) = case name of "allowApi" -> isForbidden "exitUrl" -> do forbidEmptyLayer - unwrapLink p $ \link -> if "https://" `isPrefixOf` link + unwrapLink p $ \link -> if "/" `isPrefixOf` link then dependsOn $ MapLink link else unwrapPath link (dependsOn . LocalMap) "startLayer" -> do |