nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cvs: Allow checkouts when /tmp is a different device. 

* guix/build/cvs.scm (cvs-fetch): Use 'copy-recursively' instead of
'rename-file'.

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Jan Nieuwenhuizen 2016-03-26 13:40:38 +01:00 committed by Ludovic Courtès
parent 47268eec13
commit ab83105bbe
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix/build/cvs.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -58,7 +59,10 @@ Return #t on success, #f otherwise."
"-D" "-r") "-D" "-r")
revision revision
module)) module))
(rename-file module directory) ;; Copy rather than rename in case MODULE and DIRECTORY are on
;; different devices.
(copy-recursively module directory)
(with-directory-excursion directory (with-directory-excursion directory
(for-each delete-file-recursively (find-cvs-directories))) (for-each delete-file-recursively (find-cvs-directories)))
#t)) #t))