From 8f5af0492e7a82192d1fafda3d2c74421af4354d Mon Sep 17 00:00:00 2001
From: Sven G. Brönstrup
Date: Sun, 19 Dec 2021 20:11:55 +0100
Subject: Wrap urls for inline iframes

---
 lib/Properties.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib/Properties.hs')

diff --git a/lib/Properties.hs b/lib/Properties.hs
index 7fc58c9..25bbbd3 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -229,6 +229,9 @@ checkObjectProperty :: Object -> Property -> LintWriter Layer
 checkObjectProperty obj p@(Property name _) = case name of
   "url" -> do
     pure ()
+    unwrapURI (Proxy @"website") p
+      (dependsOn . Link)
+      (dependsOn . Local)
     unless (objectType obj == "website")
       $ complain "\"url\" can only be set for objects of type \"website\""
   "allowApi" -> forbidProperty name
-- 
cgit v1.2.3