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 ((<|))