*)
let callback req outchan =
- Http.Daemon.respond_error ~body:(req#param "foo") outchan
+ Http_daemon.respond_error ~body:(req#param "foo") outchan
in
-Http.Daemon.start' ~addr:"127.0.0.1" ~port:9999 callback
+Http_daemon.start' ~port:9999 callback