Vendors: export Resto.Path.subst*
This commit is contained in:
parent
7adc0c90e7
commit
49ad5d585a
5
vendors/ocplib-resto/lib_resto/resto.ml
vendored
5
vendors/ocplib-resto/lib_resto/resto.ml
vendored
@ -265,6 +265,11 @@ module Path = struct
|
||||
let (/:) = add_arg
|
||||
let (/:*) = add_final_args
|
||||
|
||||
let subst0 = Internal.subst0
|
||||
let subst1 = Internal.subst1
|
||||
let subst2 = Internal.subst2
|
||||
let subst3 = Internal.subst3
|
||||
|
||||
end
|
||||
|
||||
module Query = struct
|
||||
|
9
vendors/ocplib-resto/lib_resto/resto.mli
vendored
9
vendors/ocplib-resto/lib_resto/resto.mli
vendored
@ -75,6 +75,15 @@ module Path : sig
|
||||
val prefix:
|
||||
('prefix, 'a) path -> ('a, 'params) path -> ('prefix, 'params) path
|
||||
|
||||
val subst0:
|
||||
('p, 'p) path -> ('p2, 'p2) path
|
||||
val subst1:
|
||||
('p, 'p * 'a) path -> ('p2, 'p2 * 'a) path
|
||||
val subst2:
|
||||
('p, ('p * 'a) * 'b) path -> ('p2, ('p2 * 'a) * 'b) path
|
||||
val subst3:
|
||||
('p, (('p * 'a) * 'b) * 'c) path -> ('p2, (('p2 * 'a) * 'b) * 'c) path
|
||||
|
||||
end
|
||||
|
||||
(** Service directory description *)
|
||||
|
Loading…
Reference in New Issue
Block a user