@@ -292,7 +292,7 @@ existentialQuery url = do
292-- failing that tries to parse it as an EsError. All well-formed, JSON
292-- failing that tries to parse it as an EsError. All well-formed, JSON
293-- responses from elasticsearch should fall into these two
293-- responses from elasticsearch should fall into these two
294-- categories. If they don't, a 'StatusCodeException' will be thrown.
294-- categories. If they don't, a 'StatusCodeException' will be thrown.
295−parseEsResponse :: (MonadBH m, MonadThrow m, FromJSON a) => Reply
295+parseEsResponse :: (MonadThrow m, FromJSON a) => Reply
296 -> m (Either EsError a)
296 -> m (Either EsError a)
297parseEsResponse reply
297parseEsResponse reply
298 | respIsTwoHunna reply = case eitherDecode body of
298 | respIsTwoHunna reply = case eitherDecode body of