Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 4078d26842
Fetching contributors…

Cannot retrieve contributors at this time

31 lines (24 sloc) 0.528 kb
{-# 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
| Delete
deriving (Show, Eq)
httpMethod :: Method -> HTTP.Method
httpMethod Get = "GET"
httpMethod PostQuery = "POST"
httpMethod Post = "POST"
httpMethod Put = "PUT"
httpMethod Delete = "DELETE"
Jump to Line
Something went wrong with that request. Please try again.