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