module Network.Wai.Application.Classic.Header where
import Data.ByteString (ByteString)
import Data.Maybe
import Network.HTTP.Types.Header
import Network.Wai
hIfUnmodifiedSince :: HeaderName
hIfUnmodifiedSince = "if-unmodified-since"
hStatus :: HeaderName
hStatus = "status"
hXForwardedFor :: HeaderName
hXForwardedFor = "x-forwarded-for"
hVia :: HeaderName
hVia = "via"
lookupRequestField :: HeaderName -> Request -> Maybe ByteString
lookupRequestField x req = lookup x hdrs
where
hdrs = requestHeaders req
lookupRequestField' :: HeaderName -> Request -> ByteString
lookupRequestField' x req = fromMaybe "" $ lookup x hdrs
where
hdrs = requestHeaders req