{-# 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
    | Post
    | Put
    deriving (Show, Eq)

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