From 2a4c14744897ca3a9c0f18ed1cee2ae6c94d7fff Mon Sep 17 00:00:00 2001
From: Nicolas BACQUEY <nicolas.bacquey@tweag.io>
Date: Thu, 17 Mar 2022 14:17:37 +0100
Subject: [PATCH] Ignore deprecation warning in StreamingSpec

We cannot use the recommended replacement
`requestBody` => `getRequestBodyChunk`, because we are actually
interested in the record selector, not the `Request -> IO ByteString`
function.
---
 servant-server/test/Servant/Server/StreamingSpec.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/servant-server/test/Servant/Server/StreamingSpec.hs b/servant-server/test/Servant/Server/StreamingSpec.hs
index 43ff3f69..5f4697fa 100644
--- a/servant-server/test/Servant/Server/StreamingSpec.hs
+++ b/servant-server/test/Servant/Server/StreamingSpec.hs
@@ -4,6 +4,8 @@
 {-# LANGUAGE TupleSections       #-}
 {-# LANGUAGE TypeOperators       #-}
 
+{-# OPTIONS_GHC -fno-warn-deprecations #-}
+
 -- | This module tests whether streaming works from client to server
 -- with a server implemented with servant-server.
 module Servant.Server.StreamingSpec where