diff options
| -rw-r--r-- | cwality-maps/Main.hs | 7 |
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 |