module Network.AWS.Request.Internal
(
defaultRequest
, method
, host
, path
, queryString
, requestBody
, requestHeaders
) where
import Control.Lens
import Data.ByteString (ByteString)
import Data.Default.Class
import qualified Data.Text.Encoding as Text
import Network.AWS.Data
import Network.AWS.Types
import qualified Network.HTTP.Client.Internal as HTTP
import qualified Network.HTTP.Types as HTTP
defaultRequest :: (ToPath a, ToQuery a, ToHeaders a) => a -> Request a
defaultRequest x = def
& rqPath .~ Text.encodeUtf8 (toPath x)
& rqQuery .~ toQuery x
& rqHeaders .~ toHeaders x
method :: Lens' HTTP.Request HTTP.Method
method f x = f (HTTP.method x) <&> \y -> x { HTTP.method = y }
host :: Lens' HTTP.Request ByteString
host f x = f (HTTP.host x) <&> \y -> x { HTTP.host = y }
path :: Lens' HTTP.Request ByteString
path f x = f (HTTP.path x) <&> \y -> x { HTTP.path = y }
queryString :: Lens' HTTP.Request ByteString
queryString f x = f (HTTP.queryString x) <&> \y -> x { HTTP.queryString = y }
requestBody :: Lens' HTTP.Request HTTP.RequestBody
requestBody f x = f (HTTP.requestBody x) <&> \y -> x { HTTP.requestBody = y }
requestHeaders :: Lens' HTTP.Request HTTP.RequestHeaders
requestHeaders f x =
f (HTTP.requestHeaders x) <&> \y -> x { HTTP.requestHeaders = y }