diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-11-11 18:38:27 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-11-11 20:09:25 +0100 |
| commit | b1488c76536c991c363aff7fd08dc6a49b8fbb30 (patch) | |
| tree | 1c958331a829705d9e230078a6c72835c3f97782 | |
| parent | 4564782c3dac66c9a8a764a696d8bbfb1f33e1ff (diff) | |
| download | guix-b1488c76536c991c363aff7fd08dc6a49b8fbb30.tar guix-b1488c76536c991c363aff7fd08dc6a49b8fbb30.tar.gz | |
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.
| -rw-r--r-- | guix/git.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/git.scm b/guix/git.scm index ad4fc30c4b..7a83b56216 100644 --- a/guix/git.scm +++ b/guix/git.scm @@ -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))))) |