X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Focaml-http%2Fhttp_request.ml;h=4eec70279267664de63821dcda4592e87b38350c;hb=b135ff929bdf58c2e076a6462ab03e6ed1067654;hp=c95d198469a82485b1dd2b83cf5c8310cac2010e;hpb=03166ee15ae4ee854360ba49732015231edb8bb6;p=helm.git

diff --git a/helm/DEVEL/ocaml-http/http_request.ml b/helm/DEVEL/ocaml-http/http_request.ml
index c95d19846..4eec70279 100644
--- a/helm/DEVEL/ocaml-http/http_request.ml
+++ b/helm/DEVEL/ocaml-http/http_request.ml
@@ -20,8 +20,7 @@
 *)
 
 open Http_common;;
-
-exception Param_not_found of string
+open Http_types;;
 
 class request ~path ~params =
   object (self)
@@ -39,7 +38,7 @@ class request ~path ~params =
         Hashtbl.find params_tbl name
       with Not_found ->
         raise (Param_not_found name)
-    method param_all name = List.rev (Hashtbl.find_all params_tbl name)
+    method paramAll name = List.rev (Hashtbl.find_all params_tbl name)
     method params = params
   end