diff options
author | stuebinm | 2021-12-27 18:09:24 +0100 |
---|---|---|
committer | stuebinm | 2021-12-27 18:09:24 +0100 |
commit | 89a4aa1e911e6e67cbbea09c4c72bb95701c02ed (patch) | |
tree | 41a44539fe5fecec8013defd9ccdbcd32c05da0a | |
parent | 8b96ea32accff561f4f2a33b604a9a2bbe0a9168 (diff) |
fix bbb urls a second time …
-rw-r--r-- | lib/Properties.hs | 6 |
1 files changed, 1 insertions, 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" |