aws-0.0.1: Aws/Http.hs

{-# LANGUAGE OverloadedStrings #-}

module Aws.Http
where
  
import qualified Network.HTTP.Types    as HTTP

data Protocol
    = HTTP
    | HTTPS
    deriving (Show)

defaultPort :: Protocol -> Int
defaultPort HTTP = 80
defaultPort HTTPS = 443

data Method
    = Get
    | PostQuery
    deriving (Show, Eq)

httpMethod :: Method -> HTTP.Method
httpMethod Get = "GET"
httpMethod PostQuery = "POST"