diff options
| author | stuebinm | 2021-11-16 19:51:58 +0100 |
|---|---|---|
| committer | stuebinm | 2021-11-16 19:51:58 +0100 |
| commit | b1dcbc9edd964b9d0cab6c26db4d502840011ac4 (patch) | |
| tree | baab42a8926f65f4d09ef982f3dee987c4ddffbd /lib | |
| parent | 6c674fa7c2916149937c54b8241d28f0d7c97976 (diff) | |
add adjustment: add prefix for openWebsite
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/LintConfig.hs | 1 | ||||
| -rw-r--r-- | lib/Properties.hs | 7 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lib/LintConfig.hs b/lib/LintConfig.hs index 5596005..5c1ae20 100644 --- a/lib/LintConfig.hs +++ b/lib/LintConfig.hs @@ -40,6 +40,7 @@ data LintConfig f = LintConfig -- ^ Don't copy map assets (mostly useful for development) , configAllowScripts :: HKD f Bool -- ^ Allow defining custom scripts in maps + , configLinkPrefix :: HKD f Text } deriving (Generic) type LintConfig' = LintConfig Identity 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 |