diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2017-08-01 23:42:28 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2017-08-01 23:42:28 +0200 |
| commit | aa9780daf92131dc9ee19868f9621fd2be56ab78 (patch) | |
| tree | 39733db2ecad867c291d87d5d1cbf4e6de2eb845 /guix/git-download.scm | |
| parent | 6484e82d4ce79b7b5ce72ecf77fb8d450eb0c401 (diff) | |
| parent | fc8f0631b4163d31a97fccb9a14201b5e861fa52 (diff) | |
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/git-download.scm')
| -rw-r--r-- | guix/git-download.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix/git-download.scm b/guix/git-download.scm index 5019a3e62f..7397cbe7f5 100644 --- a/guix/git-download.scm +++ b/guix/git-download.scm @@ -191,7 +191,12 @@ absolute file name and STAT is the result of 'lstat'." result))) vlist-null files)) - (prefix-length (+ 1 (string-length (canonicalize-path directory)))) + + ;; Note: For this to work we must *not* call 'canonicalize-path' on + ;; DIRECTORY or we would get discrepancies of the returned lambda is + ;; called with a non-canonical file name. + (prefix-length (+ 1 (string-length directory))) + (status (close-pipe pipe))) (and (zero? status) (lambda (file stat) |