module Network.Wai.Application.Classic.Header where
import Data.CaseInsensitive
import Data.Maybe
import Network.HTTP.Types
import Network.Wai
type FieldKey = CI Ascii
fkAcceptLanguage :: FieldKey
fkAcceptLanguage = "accept-language"
fkRange :: FieldKey
fkRange = "range"
fkIfRange :: FieldKey
fkIfRange = "if-range"
fkLastModified :: FieldKey
fkLastModified = "last-modified"
fkIfModifiedSince :: FieldKey
fkIfModifiedSince = "if-modified-since"
fkIfUnmodifiedSince :: FieldKey
fkIfUnmodifiedSince = "if-unmodified-since"
fkContentLength :: FieldKey
fkContentLength = "content-length"
fkContentType :: FieldKey
fkContentType = "content-type"
fkCookie :: FieldKey
fkCookie = "cookie"
fkUserAgent :: FieldKey
fkUserAgent = "user-agent"
fkReferer :: FieldKey
fkReferer = "referer"
lookupRequestField :: FieldKey -> Request -> Maybe Ascii
lookupRequestField x req = lookup x hdrs
where
hdrs = requestHeaders req
lookupRequestField' :: FieldKey -> Request -> Ascii
lookupRequestField' x req = fromMaybe "" $ lookup x hdrs
where
hdrs = requestHeaders req