From 46b4591532f9ecf16bf382fded5fa5fd413527ac Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Tue, 30 Nov 2021 00:23:13 +0100
Subject: jitsiRoomAdminTag: prepend "assembly-" before name

(since otherwise we might run into namespace clashes for assemblies with
funny names)
---
 lib/Properties.hs | 2 ++
 1 file changed, 2 insertions(+)

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"
-- 
cgit v1.2.3