gitit-0.12.0.1: Wiki using happstack, git or darcs, and pandoc.

Safe HaskellNone
LanguageHaskell98

Network.Gitit.Server

Synopsis

Documentation

compressedResponseFilter

Arguments

:: forall (m :: * -> *). (FilterMonad Response m, MonadPlus m, WebMonad Response m, ServerMonad 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.

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