module Web.Route.Invertible.Request
( Request(..)
, blankRequest
) where
import Web.Route.Invertible.Host
import Web.Route.Invertible.Method
import Web.Route.Invertible.Path
import Web.Route.Invertible.Query
import Web.Route.Invertible.ContentType
data Request = Request
{ requestSecure :: Bool
, requestHost :: [HostString]
, requestMethod :: Method
, requestPath :: [PathString]
, requestQuery :: QueryParams
, requestContentType :: ContentType
} deriving (Show, Eq)
blankRequest :: Request
blankRequest = Request
{ requestSecure = False
, requestHost = []
, requestMethod = ExtensionMethod mempty
, requestPath = []
, requestQuery = mempty
, requestContentType = mempty
}