vif/examples/01-hello/main.ml

#require "vif" ;;

open Vif ;;

let default req _server () =
  let str = "Hello World!\n" in
  let* () = Response.with_string req str in
  Response.respond `OK
;;

let routes =
  let open Vif.U in
  let open Vif.R in
  let open Vif.T in
  [ get (rel /?? nil) --> default ]
;;

let () = Miou_unix.run @@ fun () ->
  Vif.run routes ()
;;
Add few examples about vif 2025-02-01 15:54:10 +00:00			`#require "vif" ;;`

Implement cookie (not tested) 2025-02-13 16:17:00 +00:00			`open Vif ;;`

Add static handler 2025-02-18 18:25:30 +00:00			`let default req _server () =`
Fix examples 2025-02-21 09:33:20 +00:00			`let str = "Hello World!\n" in`
			`let* () = Response.with_string req str in`
Implement cookie (not tested) 2025-02-13 16:17:00 +00:00			Response.respond `OK
Add few examples about vif 2025-02-01 15:54:10 +00:00			`;;`

Add static handler 2025-02-18 18:25:30 +00:00			`let routes =`
			`let open Vif.U in`
			`let open Vif.R in`
Fix examples 2025-02-21 09:33:20 +00:00			`let open Vif.T in`
Add static handler 2025-02-18 18:25:30 +00:00			`[ get (rel /?? nil) --> default ]`
			`;;`

User a better API for streaming 2025-02-08 15:37:56 +00:00			`let () = Miou_unix.run @@ fun () ->`
Fix examples 2025-02-21 09:33:20 +00:00			`Vif.run routes ()`
			`;;`