fix(reindex): regression after dropping deriving-aeson

bitemyapp · Dec 30, 2023 · 7a80718 · 7a80718
1 parent 2334107
commit 7a80718
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Database/Bloodhound/Internal/Versions/Common/Types/Reindex.hs b/src/Database/Bloodhound/Internal/Versions/Common/Types/Reindex.hs
@@ -71,7 +71,7 @@ instance ToJSON ReindexSource where
   toJSON ReindexSource {..} =
     object
       [ "index" .= reindexSourceIndex,
-        "maxDocs" .= reindexSourceMaxDocs,
+        "max_docs" .= reindexSourceMaxDocs,
         "query" .= reindexSourceQuery,
         "size" .= reindexSourceSize,
         "slice" .= reindexSourceSlice
@@ -81,7 +81,7 @@ instance FromJSON ReindexSource where
   parseJSON = withObject "ReindexSource" $ \v ->
     ReindexSource
       <$> v .: "index"
-      <*> v .:? "maxDocs"
+      <*> v .:? "max_docs"
       <*> v .:? "query"
       <*> v .:? "size"
       <*> v .:? "slice"