{-# LANGUAGE OverloadedStrings #-}
module Network.HTTP.StackClient
( httpJSON
, httpLbs
, httpLBS
, httpNoBody
, httpSink
, setUserAgent
, withResponse
, withResponseByManager
, setRequestMethod
, setRequestHeader
, addRequestHeader
, setRequestBody
, setRequestManager
, getResponseHeaders
, getResponseBody
, getResponseStatusCode
, Network.HTTP.Client.responseHeaders
, Network.HTTP.Client.responseStatus
, Network.HTTP.Client.responseBody
, parseRequest
, parseRequest_
, defaultRequest
, setUri
, getUri
, path
, checkResponse
, parseUrlThrow
, requestHeaders
, getGlobalManager
, applyDigestAuth
, displayDigestAuthException
, Request
, RequestBody(RequestBodyBS, RequestBodyLBS)
, Response
, Manager
, Header
, HeaderName
, HttpException(HttpExceptionRequest)
, HttpExceptionContent(StatusCodeException)
, hAccept
, hContentLength
, hContentMD5
, hCacheControl
, hRange
, methodPut
, ok200
, partialContent206
, Proxy
, useProxy
, noProxy
, proxyEnvironment
, managerSetProxy
, formDataBody
, partFileRequestBody
, partBS
, partLBS
) where
import Data.Aeson (FromJSON)
import qualified Data.ByteString as Strict
import Data.ByteString.Lazy (ByteString)
import Data.Conduit (ConduitM, transPipe)
import Data.Void (Void)
import qualified Network.HTTP.Client
import Network.HTTP.Client (BodyReader, Manager, Request, RequestBody(..), Response, Manager, HttpExceptionContent(..), parseRequest, parseRequest_, defaultRequest, getUri, path, checkResponse, parseUrlThrow, responseStatus, responseBody, useProxy, noProxy, proxyEnvironment, managerSetProxy, Proxy)
import Network.HTTP.Client.Internal (setUri)
import Network.HTTP.Simple (setRequestMethod, setRequestBody, setRequestHeader, addRequestHeader, setRequestManager, HttpException(..), getResponseBody, getResponseStatusCode, getResponseHeaders)
import Network.HTTP.Types (hAccept, hContentLength, hContentMD5, hCacheControl, hRange, methodPut, Header, HeaderName, ok200, partialContent206)
import Network.HTTP.Conduit (requestHeaders)
import Network.HTTP.Client.TLS (getGlobalManager, applyDigestAuth, displayDigestAuthException)
import qualified Network.HTTP.Simple
import Network.HTTP.Client.MultipartFormData (formDataBody, partFileRequestBody, partBS, partLBS)
import UnliftIO (MonadIO, MonadUnliftIO, withRunInIO, withUnliftIO, unliftIO)
setUserAgent :: Request -> Request
setUserAgent = setRequestHeader "User-Agent" ["The Haskell Stack"]
httpJSON :: (MonadIO m, FromJSON a) => Request -> m (Response a)
httpJSON = Network.HTTP.Simple.httpJSON . setUserAgent
httpLbs :: MonadIO m => Request -> m (Response ByteString)
httpLbs = Network.HTTP.Simple.httpLbs . setUserAgent
httpLBS :: MonadIO m => Request -> m (Response ByteString)
httpLBS = httpLbs
httpNoBody :: MonadIO m => Request -> m (Response ())
httpNoBody = Network.HTTP.Simple.httpNoBody . setUserAgent
httpSink
:: MonadUnliftIO m
=> Request
-> (Response () -> ConduitM Strict.ByteString Void m a)
-> m a
httpSink req inner = withUnliftIO $ \u ->
Network.HTTP.Simple.httpSink (setUserAgent req) (transPipe (unliftIO u) . inner)
withResponse
:: (MonadUnliftIO m, MonadIO n)
=> Request -> (Response (ConduitM i Strict.ByteString n ()) -> m a) -> m a
withResponse req inner = withRunInIO $ \run ->
Network.HTTP.Simple.withResponse (setUserAgent req) (run . inner)
withResponseByManager :: MonadUnliftIO m => Request -> Manager -> (Response BodyReader -> m a) -> m a
withResponseByManager req man inner = withRunInIO $ \run ->
Network.HTTP.Client.withResponse (setUserAgent req) man (run . inner)