module Mongrel2.Types
( ClientID
, Connection(..)
, Request(..)
, UUID
) where
import Data.ByteString (ByteString)
import Data.Int (Int64)
import Data.Text (Text)
import Network.HTTP.Types (Ascii, HttpVersion, RequestHeaders, StdMethod, Query)
type ClientID = Int64
type UUID = ByteString
data Connection = Connection {
connServerUUID :: UUID,
connClientID :: ClientID
} deriving (Show)
data Request = Request {
reqPath :: [Text],
reqQuery :: Query,
reqRawPath :: ByteString,
reqMethod :: Either Ascii StdMethod,
reqVersion :: Maybe HttpVersion,
reqHeaders :: RequestHeaders,
reqBody :: ByteString
} deriving (Show)