disallow more things in urls

1 files changed, 1 insertions, 8 deletions

diff --git a/lib/Properties.hs b/lib/Properties.hs
index c4fc458..2b4203f 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -477,14 +477,7 @@ checkTileLayerProperty p@(Property name _value) = case name of
         -> forbidProperty name
         -- the openWebsite Api can only be allowed if the website is on static.rc3.world
       | T.toLower name == "openwebsiteallowapi"
-        -> do
-          properties <- askContext <&> getProperties
-          unless (all (\(Property name value) -> case value of
-                          StrProp str -> name /= "openWebsite" || "https://static.rc3.world" `isPrefixOf` str
-                          _ -> True
-                      ) properties)
-            $ complain "\"openWebsiteAllowApi\" can only be used with websites hosted \
-                       \on https://static.rc3.world"
+        -> forbid "\"openWebsiteAllowApi\" is disallowed."
       | name `elem` [ "openWebsite", "openTab" ] -> do
           uselessEmptyLayer
           suggestProperty $ Property "openWebsiteTrigger" (StrProp "onaction")