From eedc2e5e03cb6e45d08eeecbf602536c55f79e8b Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 3 Mar 2022 15:59:22 +0100
Subject: cwality-maps: remove unused parameters

the substitutions + templating seems reasonably powerfull, let's see how
far we get without custom-made specific things.
---
 cwality-maps/Main.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/cwality-maps/Main.hs b/cwality-maps/Main.hs
index be2b0a6..f242b94 100644
--- a/cwality-maps/Main.hs
+++ b/cwality-maps/Main.hs
@@ -58,11 +58,8 @@ instance FromHttpApiData JsonFilename where
 newtype Tag = Tag Text
   deriving (Generic, FromJSON)
 
-data MapParams = MapParams
-  { contentWarnings :: [Tag]
-  , backUrl         :: Text
-  , exitUrl         :: Maybe Text
-  , substs          :: Map Text Text
+newtype MapParams = MapParams
+  { substs          :: Map Text Text
   } deriving (Generic, FromJSON)
 
 instance FromHttpApiData MapParams where
-- 
cgit v1.2.3