rebuilt against ocaml 3.08.3

[helm.git] / helm / ocaml / getter / http_getter_misc.mli

diff --git a/helm/ocaml/getter/http_getter_misc.mli b/helm/ocaml/getter/http_getter_misc.mli
index 11bba25c5ff7b5847341aa37210f7e7a0f30a3b9..39b40e3b5e8fb9c8f295d47bfa280e4141034a4d 100644 (file)
--- a/helm/ocaml/getter/http_getter_misc.mli
+++ b/helm/ocaml/getter/http_getter_misc.mli
@@ -30,6 +30,13 @@
  failure reason *)
 exception Mkdir_failure of string * string
 
+  (** @return Some localpart for URI belonging to the "file://" scheme, None for
+  * other URIs
+  * removes trailing ".gz", if any
+  * e.g.: local_url "file:///etc/passwd.gz" = Some "/etc/passwd"
+  *       local_url "http://...." = None *)
+val local_url: string -> string option
+
  (** "fold_left" like function on file lines, trailing newline is not passed to
  the given function *)
 val fold_file : (string -> 'a -> 'a) -> 'a -> string -> 'a