Documentation

reads the Accept-Encoding header. Then, if possible will compress the response body with methods gzip or deflate.

This function uses standardEncodingHandlers. If you want to provide alternative handers (perhaps to change compression levels), see compressedResponseFilter'

main =
  simpleHTTP nullConf $
     do str <- compressedResponseFilter
        return $ toResponse ("This response compressed using: " ++ str)

reads the Accept-Encoding header. Then, if possible will compress the response body using one of the supplied filters.

A filter function takes two arguments. The first is a String with the value to be used as the 'Content-Encoding' header. The second is Bool which indicates if the compression filter is allowed to fallback to identity.

This is important if the resource being sent using sendfile, since sendfile does not provide a compression option. If identity is allowed, then the file can be sent uncompressed using sendfile. But if identity is not allowed, then the filter will need to return error 406.

You should probably always include the identity and * encodings as acceptable.

myFilters :: (FilterMonad Response m) => [(String, String -> Bool -> m ()]
myFilters = [ ("gzip"    , gzipFilter)
            , ("identity", identityFilter)
            , ("*"       , starFilter)
            ]

main =
  simpleHTTP nullConf $
     do let filters =
str <- compressedResponseFilter'
        return $ toResponse ("This response compressed using: " ++ str)

Ignore the Accept-Encoding header in the Request and attempt to compress the body of the response using the supplied compressor.

We can not compress files being transfered using SendFile. If identity is an allowed encoding, then just return the Response unmodified. Otherwise we return 406 Not Acceptable.

see also: gzipFilter, deflateFilter, identityFilter, starFilter, compressedResponseFilter'

Ignore the Accept-Encoding header in the Request and attempt to compress the body of the response with gzip.

calls compressWithFilter using compress.

see also: compressedResponseFilter

Ignore the Accept-Encoding header in the Request and attempt compress the body of the response with zlib's deflate method

calls compressWithFilter using compress.

see also: compressedResponseFilter

compression filter for the identity encoding (aka, do nothing)

see also: compressedResponseFilter

compression filter for the * encoding

This filter always fails.

a parser for the Accept-Encoding header

an assoc list of encodings and their corresponding compression functions.

e.g.

[("gzip", gzipFilter), ("identity", identityFilter), ("*",starFilter)]