Happstack.Server.Compression

Filter for compressing the Response body.

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)