From 695ad19943b76bc9d36ef61be7ed57b70fa0d853 Mon Sep 17 00:00:00 2001
From: Viacheslav Lotsmanov <lotsmanov89@gmail.com>
Date: Tue, 29 Nov 2022 16:50:04 +0200
Subject: [PATCH] =?UTF-8?q?Fix=20missing=20=E2=80=9CrequestBodyLength?=
 =?UTF-8?q?=E2=80=9D=20import?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 servant-server/src/Servant/Server/Internal.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/servant-server/src/Servant/Server/Internal.hs b/servant-server/src/Servant/Server/Internal.hs
index e696df70..1bdf9703 100644
--- a/servant-server/src/Servant/Server/Internal.hs
+++ b/servant-server/src/Servant/Server/Internal.hs
@@ -70,8 +70,9 @@ import           Network.Socket
 import           Network.Wai
                  (Application, Request, RequestBodyLength (KnownLength),
                  httpVersion, isSecure, lazyRequestBody,
-                 queryString, remoteHost, getRequestBodyChunk, requestHeaders,
-                 requestMethod, responseLBS, responseStream, vault)
+                 queryString, remoteHost, getRequestBodyChunk,
+                 requestBodyLength, requestHeaders, requestMethod, responseLBS,
+                 responseStream, vault)
 import           Prelude ()
 import           Prelude.Compat
 import           Servant.API