mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 21:46:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix: Fix download-svn-to-store.

Browse source 
* guix/svn-download.scm (download-svn-to-store): Add a subdirectory to
the download path.  The subdirectory is used as the target for the 'svn
export' command, avoiding a 'directory exists' error when attempting to
use the parent directory directly.
This commit is contained in:
Paul Garlick 2020-09-14 14:01:15 +01:00
parent bc5dcd9ef5
commit 735808b12c
No known key found for this signature in database
GPG key ID: AAC7E891896B568A
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/svn-download.scm
View file

@ -159,10 +159,11 @@ (define* (download-svn-to-store store ref
(parameterize ((current-output-port log))
(build:svn-fetch (svn-reference-url ref)
(svn-reference-revision ref)
temp
(string-append temp "/svn")
#:user-name (svn-reference-user-name ref)
#:password (svn-reference-password ref)))))
(and result
(add-to-store store name #t "sha256" temp))))))
(add-to-store store name #t "sha256"
(string-append temp "/svn")))))))
;;; svn-download.scm ends here