Servant.Client.Internal.HttpClient

Documentation

data ClientEnv

The environment in which a request is run.

Constructors

ClientEnv

Fields

• manager :: Manager
• baseUrl :: BaseUrl
• cookieJar :: Maybe (TVar CookieJar)

Instances

MonadReader ClientEnv ClientM

Methods

ask :: ClientM ClientEnv

local :: (ClientEnv -> ClientEnv) -> ClientM a -> ClientM a

reader :: (ClientEnv -> a) -> ClientM a

mkClientEnv :: Manager -> BaseUrl -> ClientEnv

ClientEnv smart constructor.

client :: HasClient ClientM api => Proxy api -> Client ClientM api

Generates a set of client functions for an API.

Example:

type API = Capture "no" Int :> Get '[JSON] Int
       :<|> Get '[JSON] [Bool]

api :: Proxy API
api = Proxy

getInt :: Int -> ClientM Int
getBools :: ClientM [Bool]
getInt :<|> getBools = client api

hoistClient :: HasClient ClientM api => Proxy api -> (forall a. m a -> n a) -> Client m api -> Client n api

Change the monad the client functions live in, by supplying a conversion function (a natural transformation to be precise).

For example, assuming you have some manager :: Manager and baseurl :: BaseUrl around:

type API = Get '[JSON] Int :<|> Capture "n" Int :> Post '[JSON] Int
api :: Proxy API
api = Proxy
getInt :: IO Int
postInt :: Int -> IO Int
getInt :<|> postInt = hoistClient api (flip runClientM cenv) (client api)
  where cenv = mkClientEnv manager baseurl

newtype ClientM a

ClientM is the monad in which client functions run. Contains the Manager and BaseUrl used for requests in the reader environment.

Constructors

ClientM

Fields

• unClientM :: ReaderT ClientEnv (ExceptT ServantError IO) a

Instances

Monad ClientM

Methods

(>>=) :: ClientM a -> (a -> ClientM b) -> ClientM b

(>>) :: ClientM a -> ClientM b -> ClientM b

return :: a -> ClientM a

fail :: String -> ClientM a

Functor ClientM

Methods

fmap :: (a -> b) -> ClientM a -> ClientM b

(<$) :: a -> ClientM b -> ClientM a

Applicative ClientM

Methods

pure :: a -> ClientM a

(<*>) :: ClientM (a -> b) -> ClientM a -> ClientM b

liftA2 :: (a -> b -> c) -> ClientM a -> ClientM b -> ClientM c

(*>) :: ClientM a -> ClientM b -> ClientM b

(<*) :: ClientM a -> ClientM b -> ClientM a

MonadIO ClientM

Methods

liftIO :: IO a -> ClientM a

MonadThrow ClientM

Methods

throwM :: Exception e => e -> ClientM a

MonadCatch ClientM

Methods

catch :: Exception e => ClientM a -> (e -> ClientM a) -> ClientM a

Alt ClientM

Try clients in order, last error is preserved.

Methods

(<!>) :: ClientM a -> ClientM a -> ClientM a

some :: Applicative ClientM => ClientM a -> ClientM [a]

many :: Applicative ClientM => ClientM a -> ClientM [a]

RunClient ClientM

Methods

runRequest :: Request -> ClientM Response

streamingRequest :: Request -> ClientM StreamingResponse

throwServantError :: ServantError -> ClientM a

MonadBase IO ClientM

Methods

liftBase :: IO α -> ClientM α

MonadBaseControl IO ClientM

Associated Types

type StM (ClientM :: * -> *) a :: *

Methods

liftBaseWith :: (RunInBase ClientM IO -> IO a) -> ClientM a

restoreM :: StM ClientM a -> ClientM a

MonadReader ClientEnv ClientM

Methods

ask :: ClientM ClientEnv

local :: (ClientEnv -> ClientEnv) -> ClientM a -> ClientM a

reader :: (ClientEnv -> a) -> ClientM a

MonadError ServantError ClientM

Methods

throwError :: ServantError -> ClientM a

catchError :: ClientM a -> (ServantError -> ClientM a) -> ClientM a

Generic (ClientM a)

Associated Types

type Rep (ClientM a) :: * -> *

Methods

from :: ClientM a -> Rep (ClientM a) x

to :: Rep (ClientM a) x -> ClientM a

ClientLike (ClientM a) (ClientM a)

Methods

mkClient :: ClientM a -> ClientM a

type StM ClientM a

type StM ClientM a = Either ServantError a

type Rep (ClientM a)

type Rep (ClientM a) = D1 * (MetaData "ClientM" "Servant.Client.Internal.HttpClient" "servant-client-0.14-22OqfvMmX4j4LyTliWnlVH" True) (C1 * (MetaCons "ClientM" PrefixI True) (S1 * (MetaSel (Just Symbol "unClientM") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (ReaderT * ClientEnv (ExceptT ServantError IO) a))))

runClientM :: ClientM a -> ClientEnv -> IO (Either ServantError a)

performRequest :: Request -> ClientM Response

performStreamingRequest :: Request -> ClientM StreamingResponse

clientResponseToResponse :: Response a -> GenResponse a

requestToClientRequest :: BaseUrl -> Request -> Request

catchConnectionError :: IO a -> IO (Either ServantError a)