git.iko.soy/typeable/servant
on master help sign in
Fix client tests
commit5f8aaec1460508d1b5963eb18fdbf188bee4eeb4 authorGaël Deest <gael.deest@tweag.io> dateMon 4 Oct 2021, 14:01 (5 years ago) parentfca5955
2 files changed+5−4
compare with master
unifiedsplit
servant-client-core/src/Servant/Client/Core/Reexport.hs+2 servant-client/test/Servant/ClientTestUtils.hs+3−4
servant-client-core/src/Servant/Client/Core/Reexport.hs+2
@@ -7,6 +7,7 @@ module Servant.Client.Core.Reexport
77 HasClient(..)
88 , foldMapUnion
99 , matchUnion
10+ , AsClientT
1011
1112 -- * Response (for @Raw@)
1213 , Response
@@ -23,6 +24,7 @@ module Servant.Client.Core.Reexport
2324 , showBaseUrl
2425 , parseBaseUrl
2526 , InvalidBaseUrlException
27+
2628 ) where
2729
2830
servant-client/test/Servant/ClientTestUtils.hs+3−4
@@ -64,13 +64,11 @@ import Servant.API
6464 JSON, MimeRender (mimeRender), MimeUnrender (mimeUnrender),
6565 NoContent (NoContent), PlainText, Post, QueryFlag, QueryParam,
6666 QueryParams, Raw, ReqBody, StdMethod (GET), ToHttpApiData (..), UVerb, Union,
67− WithStatus (WithStatus), addHeader)
68−import Servant.API.Generic
67+ WithStatus (WithStatus), NamedRoutes, addHeader)
68+import Servant.API.Generic ((:-))
6969import Servant.Client
70−import Servant.Client.Generic
7170import qualified Servant.Client.Core.Auth as Auth
7271import Servant.Server
73−import Servant.Server.Generic
7472import Servant.Server.Experimental.Auth
7573import Servant.Test.ComprehensiveAPI
7674
@@ -184,6 +182,7 @@ uverbGetSuccessOrRedirect :: Bool
184182 -> ClientM (Union '[WithStatus 200 Person,
185183 WithStatus 301 Text])
186184uverbGetCreated :: ClientM (Union '[WithStatus 201 Person])
185+recordRoutes :: RecordRoutes (AsClientT ClientM)
187186
188187getRoot
189188 :<|> getGet