diff options
| author | Mark H Weaver <mhw@netris.org> | 2018-03-16 02:45:36 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2018-03-16 05:02:32 -0400 |
| commit | 54fcecdb1203bfb237a6ea3cbaa4112f91e21840 (patch) | |
| tree | 726258a976d0ba71a913faba1c777e99080d8288 | |
| parent | 9f68acc1682bc814fa978a6cdd10fca4ea2bc962 (diff) | |
| download | patches-54fcecdb1203bfb237a6ea3cbaa4112f91e21840.tar patches-54fcecdb1203bfb237a6ea3cbaa4112f91e21840.tar.gz | |
cvs-download: Use invoke instead of system*.
* guix/build/cvs.scm (cvs-fetch): Use invoke and remove vestigial plumbing.
| -rw-r--r-- | guix/build/cvs.scm | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/guix/build/cvs.scm b/guix/build/cvs.scm index 9976e624b3..7111043747 100644 --- a/guix/build/cvs.scm +++ b/guix/build/cvs.scm @@ -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 |