Network.Wai.Application.Classic

WAI (Web Application Interface) Application for static files and CGI.

Types

data AppSpec

Constructors

AppSpec

Fields

softwareName :: ByteString

Name specified to Server: in HTTP response.

indexFile :: ByteString

A file name of an index file.

isHTML :: ByteString -> Bool

Whether this is an HTML or not.

logger :: Logger

A function for logging. The third argument is a body size.

getFileInfo :: ByteString -> IO (Maybe FileInfo)

A function to obtain information about a file.

type Logger = Request -> Status -> Maybe Integer -> IO ()

data FileInfo

Constructors

FileInfo

Fields

fileInfoName :: FilePath

fileInfoSize :: Integer

fileInfoTime :: HTTPDate

Files

data FileRoute

Constructors

FileRoute

Fields

fileSrc :: ByteString

Path prefix to be matched to pathInfo.

fileDst :: ByteString

Path prefix to an actual file system.

fileApp :: AppSpec -> FileRoute -> Application

Handle GET and HEAD for a static file.

If pathInfo ends with '/', indexFile is automatically added. In this case, Acceptable-Language: is also handled. Suppose indexFile is index.html and if the value is ja,en, then "index.html.ja", "index.html.en", and "index.html" are tried to be opened in order.

If pathInfo does not end with '/' and a corresponding index file exist, redirection is specified in HTTP response.

Directory contents are NOT automatically listed. To list directory contents, an index file must be created beforehand.

The following HTTP headers are handled: Acceptable-Language:, If-Modified-Since:, Range:, If-Range:, If-Unmodified-Since:.

CGI

data CgiRoute

Constructors

CgiRoute

Fields

cgiSrc :: ByteString

Path prefix to be matched to pathInfo.

cgiDst :: ByteString

Path prefix to an actual file system.

cgiApp :: AppSpec -> CgiRoute -> Application

Handle GET and POST for CGI.

The program to link this library must ignore SIGCHLD as follows:

   installHandler sigCHLD Ignore Nothing

Utilities for logging

type NumericAddress = String

A type for IP address in numeric string representation.

showSockAddr :: SockAddr -> NumericAddress

Convert SockAddr to NumericAddress. If the address is an IPv4-embedded IPv6 address, the IPv4 is extracted.

type FieldKey = ByteString

Header field key. This must be lower case.

lookupRequestField :: FieldKey -> Request -> Maybe ByteString

Looking up a header in Request.

lookupRequestField' :: FieldKey -> Request -> ByteString

Looking up a header in Request. If the header does not exist, empty ByteString is returned.