{-# options_haddock prune #-}
module Polysemy.Http.Json where
import Polysemy.Http.Data.Header (HeaderName, HeaderValue)
import Polysemy.Http.Data.HttpError (HttpError)
import Polysemy.Http.Data.Request (Request)
import Polysemy.Http.Data.Response (Response)
import qualified Polysemy.Http.Effect.Http as Http
import Polysemy.Http.Effect.Http (Http)
jsonContentType :: (HeaderName, HeaderValue)
jsonContentType :: (HeaderName, HeaderValue)
jsonContentType =
(HeaderName
"content-type", HeaderValue
"application/json")
jsonRequest ::
Member (Http c) r =>
Request ->
Sem r (Either HttpError (Response LByteString))
jsonRequest :: forall c (r :: EffectRow).
Member (Http c) r =>
Request -> Sem r (Either HttpError (Response LByteString))
jsonRequest =
Request -> Sem r (Either HttpError (Response LByteString))
forall c (r :: EffectRow).
Member (Http c) r =>
Request -> Sem r (Either HttpError (Response LByteString))
Http.request (Request -> Sem r (Either HttpError (Response LByteString)))
-> (Request -> Request)
-> Request
-> Sem r (Either HttpError (Response LByteString))
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (IsLabel
"headers"
(ASetter
Request
Request
[(HeaderName, HeaderValue)]
[(HeaderName, HeaderValue)])
ASetter
Request
Request
[(HeaderName, HeaderValue)]
[(HeaderName, HeaderValue)]
#headers ASetter
Request
Request
[(HeaderName, HeaderValue)]
[(HeaderName, HeaderValue)]
-> ([(HeaderName, HeaderValue)] -> [(HeaderName, HeaderValue)])
-> Request
-> Request
forall s t a b. ASetter s t a b -> (a -> b) -> s -> t
%~ ((HeaderName, HeaderValue)
jsonContentType (HeaderName, HeaderValue)
-> [(HeaderName, HeaderValue)] -> [(HeaderName, HeaderValue)]
forall a. a -> [a] -> [a]
:))