From 9b995486c382bc31d400650561c47f86bf8a627c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Th=C3=A9ophile=20Choutri?= Date: Thu, 16 Jan 2025 21:22:30 +0100 Subject: [PATCH] Rename Servant.Types.Internal.ResponseList to Servant.Types.Internal.ResponseList --- servant-client-core/src/Servant/Client/Core/Response.hs | 2 +- servant-server/src/Servant/Server/Internal/ResponseRender.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/servant-client-core/src/Servant/Client/Core/Response.hs b/servant-client-core/src/Servant/Client/Core/Response.hs index 8a0196050..fcf8d81ee 100644 --- a/servant-client-core/src/Servant/Client/Core/Response.hs +++ b/servant-client-core/src/Servant/Client/Core/Response.hs @@ -31,7 +31,7 @@ import Network.HTTP.Types import Servant.API.Stream (SourceIO) -import Servant.Types.Internal.ResponseList +import Servant.Types.Internal.Response data ResponseF a = Response { responseStatusCode :: Status diff --git a/servant-server/src/Servant/Server/Internal/ResponseRender.hs b/servant-server/src/Servant/Server/Internal/ResponseRender.hs index 2d428e2eb..6fc421cde 100644 --- a/servant-server/src/Servant/Server/Internal/ResponseRender.hs +++ b/servant-server/src/Servant/Server/Internal/ResponseRender.hs @@ -19,7 +19,7 @@ import Servant.API.MultiVerb import Servant.API.Status import Servant.API.Stream (SourceIO) import Servant.API.UVerb.Union -import Servant.Types.Internal.ResponseList +import Servant.Types.Internal.Response import qualified Network.HTTP.Media as M import Data.Foldable (toList) import Data.Sequence ((<|))