summaryrefslogtreecommitdiff
path: root/cwality-maps/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'cwality-maps/Main.hs')
-rw-r--r--cwality-maps/Main.hs7
1 files 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