module Network.Wai.Application.Classic.Header where
import Data.ByteString (ByteString)
import qualified Data.ByteString.Char8 as BS (tail,break)
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"
hTransferEncoding :: HeaderName
hTransferEncoding = "transfer-encoding"
hAcceptEncoding :: HeaderName
hAcceptEncoding = "accept-encoding"
hostPort :: Request -> (ByteString, ByteString)
hostPort req = case requestHeaderHost req of
Nothing -> ("Unknown","80")
Just hostport -> case BS.break (== ':') hostport of
(host,"") -> (host,"80")
(host,port) -> (host, BS.tail port)