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