9 lines
252 B
OCaml
9 lines
252 B
OCaml
#require "vif" ;;
|
|
|
|
let default req target server () =
|
|
let stream = Vif.Stream.Stream.singleton "Hello World!\n" in
|
|
Vif.Response.with_stream ~compression:`DEFLATE server `OK stream
|
|
;;
|
|
|
|
let () = Miou_unix.run @@ fun () ->
|
|
Vif.run ~default [] () ;;
|