Safe Haskell	None
Language	GHC2021

GenAI.Client.Client

Contents

Dispatch
InitRequest
- Logging

Description

Synopsis

dispatchLbs :: forall {k} {k2} (req :: k) accept contentType (res :: k2). (Produces req accept, MimeType contentType) => Manager -> GenAIClientConfig -> ClientRequest req contentType res accept -> IO (Response ByteString)
data MimeResult res = MimeResult {
- mimeResult :: Either MimeError res
- mimeResultResponse :: Response ByteString
}
data MimeError = MimeError {
- mimeError :: String
- mimeErrorResponse :: Response ByteString
}
dispatchMime :: forall {k} (req :: k) contentType res accept. (Produces req accept, MimeUnrender accept res, MimeType contentType) => Manager -> GenAIClientConfig -> ClientRequest req contentType res accept -> IO (MimeResult res)
dispatchMime' :: forall {k} (req :: k) accept res contentType. (Produces req accept, MimeUnrender accept res, MimeType contentType) => Manager -> GenAIClientConfig -> ClientRequest req contentType res accept -> IO (Either MimeError res)
dispatchLbsUnsafe :: forall {k} {k2} accept contentType (req :: k) (res :: k2). (MimeType accept, MimeType contentType) => Manager -> GenAIClientConfig -> ClientRequest req contentType res accept -> IO (Response ByteString)
dispatchInitUnsafe :: forall {k1} {k2} {k3} {k4} (req :: k1) (contentType :: k2) (res :: k3) (accept :: k4). Manager -> GenAIClientConfig -> InitRequest req contentType res accept -> IO (Response ByteString)
newtype InitRequest (req :: k) (contentType :: k1) (res :: k2) (accept :: k3) = InitRequest {
- unInitRequest :: Request
}
_toInitRequest :: forall {k1} {k2} accept contentType (req :: k1) (res :: k2). (MimeType accept, MimeType contentType) => GenAIClientConfig -> ClientRequest req contentType res accept -> IO (InitRequest req contentType res accept)
modifyInitRequest :: forall {k1} {k2} {k3} {k4} (req :: k1) (contentType :: k2) (res :: k3) (accept :: k4). InitRequest req contentType res accept -> (Request -> Request) -> InitRequest req contentType res accept
modifyInitRequestM :: forall {k1} {k2} {k3} {k4} m (req :: k1) (contentType :: k2) (res :: k3) (accept :: k4). Monad m => InitRequest req contentType res accept -> (Request -> m Request) -> m (InitRequest req contentType res accept)
runConfigLog :: MonadIO m => GenAIClientConfig -> LogExec m a
runConfigLogWithExceptions :: (MonadCatch m, MonadIO m) => Text -> GenAIClientConfig -> LogExec m a

Dispatch

Lbs

dispatchLbs Source #

Arguments

:: forall {k} {k2} (req :: k) accept contentType (res :: k2). (Produces req accept, MimeType contentType)
=> Manager	http-client Connection manager
-> GenAIClientConfig	config
-> ClientRequest req contentType res accept	request
-> IO (Response ByteString)	response

send a request returning the raw http response

Mime

data MimeResult res Source #

pair of decoded http body and http response

Constructors

MimeResult
Fields mimeResult :: Either MimeError res decoded http body mimeResultResponse :: Response ByteString http response

Instances

Instances details

Foldable MimeResult Source #
Instance details Defined in GenAI.Client.Client Methods fold :: Monoid m => MimeResult m -> m # foldMap :: Monoid m => (a -> m) -> MimeResult a -> m # foldMap' :: Monoid m => (a -> m) -> MimeResult a -> m # foldr :: (a -> b -> b) -> b -> MimeResult a -> b # foldr' :: (a -> b -> b) -> b -> MimeResult a -> b # foldl :: (b -> a -> b) -> b -> MimeResult a -> b # foldl' :: (b -> a -> b) -> b -> MimeResult a -> b # foldr1 :: (a -> a -> a) -> MimeResult a -> a # foldl1 :: (a -> a -> a) -> MimeResult a -> a # toList :: MimeResult a -> [a] # null :: MimeResult a -> Bool # length :: MimeResult a -> Int # elem :: Eq a => a -> MimeResult a -> Bool # maximum :: Ord a => MimeResult a -> a # minimum :: Ord a => MimeResult a -> a # sum :: Num a => MimeResult a -> a # product :: Num a => MimeResult a -> a #
Traversable MimeResult Source #
Instance details Defined in GenAI.Client.Client Methods traverse :: Applicative f => (a -> f b) -> MimeResult a -> f (MimeResult b) # sequenceA :: Applicative f => MimeResult (f a) -> f (MimeResult a) # mapM :: Monad m => (a -> m b) -> MimeResult a -> m (MimeResult b) # sequence :: Monad m => MimeResult (m a) -> m (MimeResult a) #
Functor MimeResult Source #
Instance details Defined in GenAI.Client.Client Methods fmap :: (a -> b) -> MimeResult a -> MimeResult b # (<$) :: a -> MimeResult b -> MimeResult a #
Show res => Show (MimeResult res) Source #
Instance details Defined in GenAI.Client.Client Methods showsPrec :: Int -> MimeResult res -> ShowS # show :: MimeResult res -> String # showList :: [MimeResult res] -> ShowS #

data MimeError Source #

pair of unrender/parser error and http response

Constructors

MimeError
Fields mimeError :: String unrender/parser error mimeErrorResponse :: Response ByteString http response

Instances

Instances details

Show MimeError Source #
Instance details Defined in GenAI.Client.Client Methods showsPrec :: Int -> MimeError -> ShowS # show :: MimeError -> String # showList :: [MimeError] -> ShowS #

dispatchMime Source #

Arguments

:: forall {k} (req :: k) contentType res accept. (Produces req accept, MimeUnrender accept res, MimeType contentType)
=> Manager	http-client Connection manager
-> GenAIClientConfig	config
-> ClientRequest req contentType res accept	request
-> IO (MimeResult res)	response

send a request returning the MimeResult

dispatchMime' Source #

Arguments

:: forall {k} (req :: k) accept res contentType. (Produces req accept, MimeUnrender accept res, MimeType contentType)
=> Manager	http-client Connection manager
-> GenAIClientConfig	config
-> ClientRequest req contentType res accept	request
-> IO (Either MimeError res)	response

like dispatchMime, but only returns the decoded http body

InitRequest

newtype InitRequest (req :: k) (contentType :: k1) (res :: k2) (accept :: k3) Source #

wraps an http-client Request with request/response type parameters

Constructors

InitRequest
Fields unInitRequest :: Request

Instances

Instances details

Show (InitRequest req contentType res accept) Source #
Instance details Defined in GenAI.Client.Client Methods showsPrec :: Int -> InitRequest req contentType res accept -> ShowS # show :: InitRequest req contentType res accept -> String # showList :: [InitRequest req contentType res accept] -> ShowS #

_toInitRequest Source #

Arguments

:: forall {k1} {k2} accept contentType (req :: k1) (res :: k2). (MimeType accept, MimeType contentType)
=> GenAIClientConfig	config
-> ClientRequest req contentType res accept	request
-> IO (InitRequest req contentType res accept)	initialized request

Build an http-client Request record from the supplied config and request

modifyInitRequest :: forall {k1} {k2} {k3} {k4} (req :: k1) (contentType :: k2) (res :: k3) (accept :: k4). InitRequest req contentType res accept -> (Request -> Request) -> InitRequest req contentType res accept Source #

modify the underlying Request

modifyInitRequestM :: forall {k1} {k2} {k3} {k4} m (req :: k1) (contentType :: k2) (res :: k3) (accept :: k4). Monad m => InitRequest req contentType res accept -> (Request -> m Request) -> m (InitRequest req contentType res accept) Source #

modify the underlying Request (monadic)

Logging

runConfigLog :: MonadIO m => GenAIClientConfig -> LogExec m a Source #

Run a block using the configured logger instance

runConfigLogWithExceptions :: (MonadCatch m, MonadIO m) => Text -> GenAIClientConfig -> LogExec m a Source #

Run a block using the configured logger instance (logs exceptions)

:: forall {k} {k2} accept contentType (req :: k) (res :: k2). (MimeType accept, MimeType contentType)
=> Manager	http-client Connection manager
-> GenAIClientConfig	config
-> ClientRequest req contentType res accept	request
-> IO (Response ByteString)	response

:: forall {k1} {k2} {k3} {k4} (req :: k1) (contentType :: k2) (res :: k3) (accept :: k4). Manager	http-client Connection manager
-> GenAIClientConfig	config
-> InitRequest req contentType res accept	init request
-> IO (Response ByteString)	response

Dispatch

Lbs

Mime

Instances

Instances

Unsafe

InitRequest

Instances

Logging