@@ -804,7 +804,7 @@ putMapping (IndexName indexName) (MappingName mappingName) mapping =
804 where url = joinPath [indexName]
804 where url = joinPath [indexName]
805 -- "_mapping" and mappingName above were originally transposed
805 -- "_mapping" and mappingName above were originally transposed
806 -- erroneously. The correct API call is: "/INDEX/_mapping/MAPPING_NAME"
806 -- erroneously. The correct API call is: "/INDEX/_mapping/MAPPING_NAME"
807− body = encode $ object
807+ body = Just $ encode $ object
808 [ "mappings" .= mapping ]
808 [ "mappings" .= mapping ]
810versionCtlParams :: IndexDocumentSettings -> [(Text, Maybe Text)]
810versionCtlParams :: IndexDocumentSettings -> [(Text, Maybe Text)]