diff --git a/CHANGES.md b/CHANGES.md index 00f3d887e..7dd5de00c 100644 --- a/CHANGES.md +++ b/CHANGES.md @@ -1,3 +1,7 @@ +### 1.5.2 + +* Fix handling of empty paths (#89) + ### 1.5.1 (2015-06-18) * Fix filesystem expansion when a filen ame becomes a directory name or when diff --git a/_oasis b/_oasis index 25ca2ea80..d49227fc7 100644 --- a/_oasis +++ b/_oasis @@ -1,6 +1,6 @@ OASISFormat: 0.4 Name: git -Version: 1.5.1 +Version: 1.5.2 Synopsis: A low-level interface to Git in pure OCaml Authors: Thomas Gazagnaire License: ISC diff --git a/lib/META b/lib/META index 746e9d87d..32ed8e52f 100644 --- a/lib/META +++ b/lib/META @@ -1,6 +1,6 @@ # OASIS_START -# DO NOT EDIT (digest: 2ff4edc4484753ef5804339c0f2ecd61) -version = "1.5.1" +# DO NOT EDIT (digest: 83303a3ff821ab7316e6ee41ef738204) +version = "1.5.2" description = "A low-level interface to Git in pure OCaml" requires = "mstruct dolog ocamlgraph zip nocrypto uri lwt hex" archive(byte) = "git.cma" @@ -9,7 +9,7 @@ archive(native) = "git.cmxa" archive(native, plugin) = "git.cmxs" exists_if = "git.cma" package "unix" ( - version = "1.5.1" + version = "1.5.2" description = "A low-level interface to Git in pure OCaml" requires = "git git.http lwt cohttp.lwt lwt.unix conduit.lwt-unix" archive(byte) = "git-unix.cma" @@ -20,7 +20,7 @@ package "unix" ( ) package "top" ( - version = "1.5.1" + version = "1.5.2" description = "Toplevel printers for Git values" requires = "git" archive(byte) = "git_top.cma" @@ -31,7 +31,7 @@ package "top" ( ) package "mirage" ( - version = "1.5.1" + version = "1.5.2" description = "A low-level interface to Git in pure OCaml" requires = "git git.http mirage-types.lwt io-page conduit.mirage dns.mirage mirage-http mirage-flow" @@ -43,7 +43,7 @@ package "mirage" ( ) package "http" ( - version = "1.5.1" + version = "1.5.2" description = "A low-level interface to Git in pure OCaml" requires = "git lwt cohttp.lwt uri.services" archive(byte) = "git-http.cma" diff --git a/lib/sync.ml b/lib/sync.ml index 31e423c9f..dabefe845 100644 --- a/lib/sync.ml +++ b/lib/sync.ml @@ -282,9 +282,10 @@ module Make (IO: IO) (Store: Store.S) = struct let uri = Gri.to_uri t.gri in let message = let buf = Buffer.create 1024 in + let path = match Uri.path uri with "" -> "/" | p -> p in Buffer.add_string buf (string_of_request t.request); Buffer.add_char buf Misc.sp; - Buffer.add_string buf (Uri.path uri); + Buffer.add_string buf path; Buffer.add_char buf Misc.nul; begin match Uri.host uri with | None -> () diff --git a/setup.ml b/setup.ml index adb88a4b1..196c98531 100644 --- a/setup.ml +++ b/setup.ml @@ -1,7 +1,7 @@ (* setup.ml generated for the first time by OASIS v0.4.1 *) (* OASIS_START *) -(* DO NOT EDIT (digest: fe5782435b7fc5fd5bab6b105eb82553) *) +(* DO NOT EDIT (digest: e9aa814eafa82e915838ad5b136dbff3) *) (* Regenerated by OASIS v0.4.5 Visit http://oasis.forge.ocamlcore.org for more information and @@ -6861,7 +6861,7 @@ let setup_t = alpha_features = []; beta_features = []; name = "git"; - version = "1.5.1"; + version = "1.5.2"; license = OASISLicense.DEP5License (OASISLicense.DEP5Unit @@ -7300,7 +7300,7 @@ let setup_t = }; oasis_fn = Some "_oasis"; oasis_version = "0.4.5"; - oasis_digest = Some "\028¼ÈÑðU:È¥â§Eø åý"; + oasis_digest = Some "ä\bÁ£\026\152\014eW¨DlS\014Ì\011"; oasis_exec = None; oasis_setup_args = []; setup_update = false