From 321f4d5fa118515dcde522e1ad01ddd65741828b Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Fri, 19 Nov 2021 01:29:28 +0100
Subject: add domain allow- and blocklists for weblinks

(these use a rather crude regex for parsing, which may be possible to
side-step, and which should probably be replaced by something that was
actually written while following the relevant rfc)
---
 lib/LintConfig.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/LintConfig.hs')

diff --git a/lib/LintConfig.hs b/lib/LintConfig.hs
index d237356..d976352 100644
--- a/lib/LintConfig.hs
+++ b/lib/LintConfig.hs
@@ -41,6 +41,11 @@ data LintConfig f = LintConfig
   , configAllowScripts   :: HKD f Bool
   -- ^ Allow defining custom scripts in maps
   , configLinkPrefix     :: HKD f Text
+  -- ^ prefix that will be added to all outgoing weblinks
+  , configAllowedDomains :: HKD f [Text]
+  -- ^ domains that are allowed in weblinks and will not be modified
+  , configBlockedDomains :: HKD f [Text]
+  -- ^ domains that are blocked; weblinks to these is an error
   } deriving (Generic)
 
 type LintConfig' = LintConfig Identity
-- 
cgit v1.2.3