TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cvs-download: Use invoke instead of system*. 

* 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 @@ Return #t on success, #f otherwise."
;; 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