- added method 'param_all' to request objects

[helm.git] / helm / DEVEL / ocaml-http / http_request.ml

diff --git a/helm/DEVEL/ocaml-http/http_request.ml b/helm/DEVEL/ocaml-http/http_request.ml
index 91bc98a67ac5138fe8a001671037b0e8c9bb4449..c95d198469a82485b1dd2b83cf5c8310cac2010e 100644 (file)
--- a/helm/DEVEL/ocaml-http/http_request.ml
+++ b/helm/DEVEL/ocaml-http/http_request.ml
@@ -39,6 +39,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 params = params
   end