gitit-0.15.1.2: Wiki using happstack, git or darcs, and pandoc.
Safe HaskellSafe-Inferred
LanguageHaskell2010

Network.Gitit.Server

Synopsis

Documentation

compressedResponseFilter #

Arguments

:: (FilterMonad Response m, MonadPlus m, WebMonad Response m, ServerMonad m, MonadFail m) 
=> m String

name of the encoding chosen

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)