Merge pull request #92 from samoht/master

Fix clone of empty paths

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

_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

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"

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   -> ()

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