From 89a4aa1e911e6e67cbbea09c4c72bb95701c02ed Mon Sep 17 00:00:00 2001
From: stuebinm <stuebinm@disroot.org>
Date: Mon, 27 Dec 2021 18:09:24 +0100
Subject: [PATCH] =?UTF-8?q?fix=20bbb=20urls=20a=20second=20time=20?=
=?UTF-8?q?=E2=80=A6?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
lib/Properties.hs | 6 +-----
1 file changed, 1 insertion(+), 5 deletions(-)
diff --git a/lib/Properties.hs b/lib/Properties.hs
index d78cb8c..4b51624 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -368,16 +368,12 @@ checkTileLayerProperty p@(Property name _value) = case name of
Just ("bbb",assembly_slug, room_slug)
| "/" `isPrefixOf` room_slug
&& T.length room_slug >= 2 -> do
- assemblies <- lintConfig configAssemblies
- if assembly_slug `elem` assemblies
- then do
- let link = "https://rc3.world/2021/room/"<>room_slug
+ let link = "https://rc3.world/2021/room"<>room_slug
dependsOn (Link link)
setProperty "openWebsite" link
setProperty "silent" (BoolProp True)
setProperty "openWebsitePolicy"
("fullscreen;camera;microphone;display-capture" :: Text)
- else complain $ prettyprint assembly_slug <> " is not a registered assembly and therefore cannot be used in `bbbUrl`."
_ -> complain "the \"bbbRoom\" property must take a link of the form bbb://assembly_slug/room_slug."
"bbbTrigger" -> do
removeProperty "bbbTrigger"
--
GitLab