diff --git a/cwality-maps/Main.hs b/cwality-maps/Main.hs index be2b0a6d771a8b3a777bea23be801ce0c534ef24..f242b9481f04a4dbacb546dc2b0a5f5530132ec3 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