Warning: Reason support is experimental. We are looking for beta-tester and contributors.

Module Deflatemod

module Deflatemod : sig..end

Deflatemod: compress output data


If you want to use this extension with Ocsigen Server's configuration file, # have a look at the manual page.

  1. If you are using Ocsigen Server as a library, use the interface described
  2. here. Each of these functions behaves exactly as its configuration file counterpart. +

This module belongs to ocamlfind package ocsigenserver.ext.deflatemod.

Example of use:

let _ =
   Ocsigen_server.start
     [ Ocsigen_server.host ~regexp:".*"
       [ Staticmod.run ~dir:"static" () 
       ; Deflatemod.run
           ~mode:(`Only [ `Type (Some "text", Some "html")
                        ; `Type (Some "text", Some "javascript")
                        ; `Type (Some "text", Some "css")
                        ; `Type (Some "application", Some "javascript")
                        ; `Type (Some "application", Some "x-javascript")
                        ; `Type (Some "application", Some "xhtml+xml")
                        ; `Type (Some "image", Some "svg+xml")
                        ; `Type (Some "application", Some "x-eliom")]) ()
        ]]
val set_compress_level : int -> unit
val set_buffer_size : int -> unit
type filter = [ `Extension of string | `Type of string option * string option ]

Describes the content to deflate, either using its content type, or file extension

val run : 
  mode:[ `All_but of filter list
   | `Only of filter list ] ->
  unit -> Ocsigen_server.instruction

run ~mode () makes it possible to use this extension without configuration file.

val section : Lwt_log_core.section

Use Lwt_log.Section.set_level in order to change the log level