*)
open Http_common;;
-
-exception Param_not_found of string
+open Http_types;;
class request ~path ~params =
object (self)
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