From f6bd1364f2c5a0adfba29b8261e623d9727d2ec8 Mon Sep 17 00:00:00 2001
From: Dylan Simon <dylan@dylex.net>
Date: Wed, 15 Nov 2023 13:41:05 -0500
Subject: [PATCH] remove duplicate accept header

---
 src/ES.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/ES.hs b/src/ES.hs
index f2b1b2f9..a4172580 100644
--- a/src/ES.hs
+++ b/src/ES.hs
@@ -56,7 +56,7 @@ import           Data.Typeable (cast)
 import qualified Data.Vector as V
 import qualified Network.HTTP.Client.Conduit as HTTP hiding (httpSource)
 import qualified Network.HTTP.Simple as HTTP
-import           Network.HTTP.Types.Header (hAcceptEncoding, hAccept, hContentType)
+import           Network.HTTP.Types.Header (hAcceptEncoding, hContentType)
 import           Network.HTTP.Types.Method (StdMethod(GET, PUT, POST), renderStdMethod)
 import qualified Network.URI as URI
 import           System.IO (stderr)
@@ -81,7 +81,6 @@ initServer conf = do
   return req
     { HTTP.requestHeaders =
         [ (hAcceptEncoding, " ") -- disable gzip
-        , (hAccept, "application/json")
         ]
     , HTTP.responseTimeout = HTTP.responseTimeoutNone
     }