From 5892d8438e1039cc710bfeb52c1d55bc745b9a0e Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Wed, 25 Dec 2002 14:50:01 +0000 Subject: [PATCH] "qualified" callback argument as required by new API --- helm/DEVEL/ocaml-http/examples/obj_foo.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/helm/DEVEL/ocaml-http/examples/obj_foo.ml b/helm/DEVEL/ocaml-http/examples/obj_foo.ml index c36ea3ec3..278621853 100644 --- a/helm/DEVEL/ocaml-http/examples/obj_foo.ml +++ b/helm/DEVEL/ocaml-http/examples/obj_foo.ml @@ -19,7 +19,9 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *) -let callback req outchan = +open Http_types;; + +let callback (req: request) outchan = Http_daemon.respond_error ~body:(req#param "foo") outchan in Http_daemon.start' ~port:9999 callback -- 2.39.2