summaryrefslogtreecommitdiff
path: root/guix/git-download.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-06-13 13:24:35 +0200
committerLudovic Courtès <ludo@gnu.org>2019-06-13 13:24:35 +0200
commitd9bbfe042e06df35c12e4b8f53bfb1889cba90bf (patch)
tree9f34077cd824e8955be4ed2b5f1a459aa8076489 /guix/git-download.scm
parentf87a7cc60e058d2e07560d0d602747b567d9dce4 (diff)
parent47f2168b6fabb105565526b2a1243eeeb13008fe (diff)
downloadguix-patches-d9bbfe042e06df35c12e4b8f53bfb1889cba90bf.tar
guix-patches-d9bbfe042e06df35c12e4b8f53bfb1889cba90bf.tar.gz
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/git-download.scm')
-rw-r--r--guix/git-download.scm4
1 files changed, 1 insertions, 3 deletions
diff --git a/guix/git-download.scm b/guix/git-download.scm
index 6cf267d6c8..f904d11c25 100644
--- a/guix/git-download.scm
+++ b/guix/git-download.scm
@@ -185,9 +185,7 @@ are relative to DIRECTORY, which is not necessarily the root of the checkout."
(directory (string-append (canonicalize-path directory) "/"))
(dot-git (repository-discover directory))
(repository (repository-open dot-git))
- ;; XXX: This procedure is mistakenly private in Guile-Git 0.1.0.
- (workdir ((@@ (git repository) repository-working-directory)
- repository))
+ (workdir (repository-working-directory repository))
(head (repository-head repository))
(oid (reference-target head))
(commit (commit-lookup repository oid))