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