~ruther/guix-local: git: Check whether 'clone-init-options' is defined.

b1488c76536c991c363aff7fd08dc6a49b8fbb30 — Ludovic Courtès 8 years ago 4564782

git: Check whether 'clone-init-options' is defined.

This is a followup to 195f0d05c3f64e17e84b2683a7045a14ec578d61.

* guix/git.scm (clone*): Check whether 'clone-init-options' is defined
before using it.

patch browse .tar.gz

1 files changed, 4 insertions(+), 1 deletions(-)

M guix/git.scm

M guix/git.scm => guix/git.scm +4 -1

@@ 58,7 58,10 @@ make sure no empty directory is left behind."
 
       ;; Note: Explicitly pass options to work around the invalid default
       ;; value in Guile-Git: <https://bugs.gnu.org/29238>.
-      (clone url directory (clone-init-options)))
+      (if (module-defined? (resolve-interface '(git))
+                           'clone-init-options)
+          (clone url directory (clone-init-options))
+          (clone url directory)))
     (lambda _
       (false-if-exception (rmdir directory)))))