From 4324662bbfd8fa15b813ceb545ae2ab5954fb9da Mon Sep 17 00:00:00 2001
From: stuebinm <stuebinm@disroot.org>
Date: Thu, 3 Mar 2022 15:59:22 +0100
Subject: [PATCH] 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
--
GitLab