--- /dev/null
+
+let callback (req: Http_types.request) outchan =
+ match req#authorization with
+ | Some (`Basic (username, password))
+ when username = "foo" && password = "bar" ->
+ Http_daemon.respond ~code:200 ~body:"secret page!" outchan
+ | _ -> raise (Http_types.Unauthorized "my secret site")
+
+let _ = Http_daemon.start' ~port:9999 callback
+