diff options
author | stuebinm | 2021-11-30 00:23:13 +0100 |
---|---|---|
committer | stuebinm | 2021-11-30 00:23:13 +0100 |
commit | 46b4591532f9ecf16bf382fded5fa5fd413527ac (patch) | |
tree | a629bfe53bdff3f5ac31e546c7e1756158fbe2da /lib | |
parent | f1c6de8f74c2a410e7ac06df30293060d72fc8a0 (diff) |
jitsiRoomAdminTag: prepend "assembly-" before name
(since otherwise we might run into namespace clashes for assemblies with
funny names)
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Properties.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index 5720f42..262f427 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -27,6 +27,7 @@ import LintWriter (LintWriter, adjust, askContext, askFileDepth, import Paths (PathResult (..), RelPath (..), parsePath) import Types (Dep (Link, Local, LocalMap, MapLink)) import Uris (SubstError (..), applySubst) +import Data.Functor ((<&>)) -- | Checks an entire map for "general" lints. @@ -151,6 +152,7 @@ checkLayerProperty p@(Property name _value) = case name of "jitsiRoom" -> do lintConfig configAssemblyTag >>= setProperty "jitsiRoomAdminTag" + . ("assembly-" <>) -- prepend "assembly-" to avoid namespace clashes uselessEmptyLayer unwrapString' p $ suggestProperty $ Property "jitsiTrigger" "onaction" |