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