vif/examples/07-deflate/main.ml

#require "vif" ;;

let default req target server () =
  Vif.Response.with_string ~compression:`DEFLATE server `OK "Hello World!\n"
;;

let () = Miou_unix.run @@ fun () ->
  Vif.run ~default [] () ;;
User a better API for streaming 2025-02-08 15:37:56 +00:00			`#require "vif" ;;`

			`let default req target server () =`
Better support for deflate 2025-02-09 12:56:39 +00:00			Vif.Response.with_string ~compression:`DEFLATE server `OK "Hello World!\n"
User a better API for streaming 2025-02-08 15:37:56 +00:00			`;;`

			`let () = Miou_unix.run @@ fun () ->`
			`Vif.run ~default [] () ;;`