From 629163381bb67d3435cd40981ebd9544933a0318 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Wed, 10 Nov 2021 22:00:22 +0100
Subject: little code cleanup

---
 lib/Properties.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Properties.hs')

diff --git a/lib/Properties.hs b/lib/Properties.hs
index 97c5189..3ad8af2 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -98,7 +98,6 @@ checkLayer :: LintWriter Layer
 checkLayer = do
   layer <- askContext
   mapM_ checkLayerProperty (getProperties layer)
-  setProperty "jitsiRoomAdminTag" "Hello, World"
 
 
 
@@ -109,6 +108,7 @@ checkLayer = do
 checkLayerProperty :: Property -> LintWriter Layer
 checkLayerProperty p@(Property name _value) = case name of
     "jitsiRoom" -> do
+      setProperty "jitsiRoomAdminTag" "Hello, World"
       uselessEmptyLayer
       unwrapString p $ \_val -> do
         suggestProperty $ Property "jitsiTrigger" (StrProp "onaction")
-- 
cgit v1.2.3