27facba · servant · git.iko.soy

servant-client/src/Servant/Common/Req.hs+2−2

@@ -224,7 +224,7 @@ runClientM :: ClientM a -> ClientEnv -> IO (Either ServantError a)

224runClientM cm env = runExceptT $ (flip runReaderT env) $ runClientM' cm

225

226

227−performRequest :: Method -> Req

227+performRequest :: Method -> Req

228 -> ClientM ( Int, ByteString, MediaType

229 , [HTTP.Header], Response ByteString)

230performRequest reqMethod req = do

@@ -253,7 +253,7 @@ performRequest reqMethod req = do

253 throwError $ FailureResponse status ct body

254 return (status_code, body, ct, hdrs, response)

255

256−performRequestCT :: MimeUnrender ct result => Proxy ct -> Method -> Req

256+performRequestCT :: MimeUnrender ct result => Proxy ct -> Method -> Req

257 -> ClientM ([HTTP.Header], result)

258performRequestCT ct reqMethod req = do

259 let acceptCTS = contentTypes ct

servant-client/test/Servant/ClientSpec.hs+2−2

@@ -122,9 +122,9 @@ getBody :: Person -> SCR.ClientM Person

122getQueryParam :: Maybe String -> SCR.ClientM Person

123getQueryParams :: [String] -> SCR.ClientM [Person]

124getQueryFlag :: Bool -> SCR.ClientM Bool

125−getRawSuccess :: HTTP.Method

125+getRawSuccess :: HTTP.Method

126 -> SCR.ClientM (Int, BS.ByteString, MediaType, [HTTP.Header], C.Response BS.ByteString)

127−getRawFailure :: HTTP.Method

127+getRawFailure :: HTTP.Method

128 -> SCR.ClientM (Int, BS.ByteString, MediaType, [HTTP.Header], C.Response BS.ByteString)

129getMultiple :: String -> Maybe Int -> Bool -> [(String, [Rational])]

130 -> SCR.ClientM (String, Maybe Int, Bool, [(String, [Rational])])

servant/src/Servant/Utils/Links.hs+1−1

@@ -255,7 +255,7 @@ instance HasLink sub => HasLink (BasicAuth realm a :> sub) where

255-- Verb (terminal) instances

256instance HasLink (Verb m s ct a) where

257 type MkLink (Verb m s ct a) = Link

258− toLink _ = id

258+ toLink _ = id

259

260instance HasLink Raw where

261 type MkLink Raw = Link