gitit

Safe HaskellSafe-Infered

Network.Gitit.Server

Synopsis

Documentation

compressedResponseFilter

Arguments

:: (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)