From 7a8071870a762d0584f0d752037779e01099225a Mon Sep 17 00:00:00 2001
From: Gautier DI FOLCO <gautier.difolco@gmail.com>
Date: Sat, 30 Dec 2023 14:51:34 +0100
Subject: [PATCH] fix(reindex): regression after dropping deriving-aeson

---
 .../Bloodhound/Internal/Versions/Common/Types/Reindex.hs      | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Database/Bloodhound/Internal/Versions/Common/Types/Reindex.hs b/src/Database/Bloodhound/Internal/Versions/Common/Types/Reindex.hs
index 6984be0..cc4b953 100644
--- 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"