ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

svn-download: Handle the single file case when downloading a nar.

Browse source 
Delete the output so that download-nar doesn't error when trying to restore.

* guix/svn-download.scm (svn-multi-fetch): Delete the output if it exists
prior to calling download-nar.
This commit is contained in:
Christopher Baines 2023-07-11 16:00:20 +01:00 committed by Nicolas Goaziou
parent 32e48b8b43
commit c1f7156d55
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/svn-download.scm
View file

@ -203,7 +203,10 @@ (define build
#:password (getenv "svn password")))
(call-with-input-string (getenv "svn locations")
read))
(download-nar #$output))))))
(begin
(when (file-exists? #$output)
(delete-file-recursively #$output))
(download-nar #$output)))))))
(mlet %store-monad ((guile (package->derivation guile system)))
(gexp->derivation (or name "svn-checkout") build