little code cleanup

1 files changed, 1 insertions, 1 deletions

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")