ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 20:49:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

cvs-download: Use invoke instead of system*.

Browse source 
* guix/build/cvs.scm (cvs-fetch): Use invoke and remove vestigial plumbing.
This commit is contained in:
Mark H Weaver 2018-03-16 02:45:36 -04:00
parent 9f68acc168
commit 54fcecdb12
No known key found for this signature in database
GPG key ID: 7CEF29847562C516
1 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
guix/build/cvs.scm
View file

@ -55,19 +55,20 @@ (define* (cvs-fetch cvs-root-directory module revision directory
;; Use "-z0" because enabling compression leads to hangs during checkout on
;; certain repositories, such as
;; ":pserver:anonymous@cvs.savannah.gnu.org:/sources/gnustandards".
(and (zero? (system* cvs-command "-z0"
"-d" cvs-root-directory
"checkout"
(if (string-match "^[0-9]{4}-[0-9]{2}-[0-9]{2}$" revision)
"-D" "-r")
revision
module))
;; Copy rather than rename in case MODULE and DIRECTORY are on
;; different devices.
(copy-recursively module directory)
(invoke cvs-command "-z0"
"-d" cvs-root-directory
"checkout"
(if (string-match "^[0-9]{4}-[0-9]{2}-[0-9]{2}$" revision)
"-D" "-r")
revision
module)
(with-directory-excursion directory
(for-each delete-file-recursively (find-cvs-directories)))
#t))
;; Copy rather than rename in case MODULE and DIRECTORY are on
;; different devices.
(copy-recursively module directory)
(with-directory-excursion directory
(for-each delete-file-recursively (find-cvs-directories)))
#t)
;;; cvs.scm ends here