diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-02-20 23:03:24 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-02-20 23:03:24 +0100 |
commit | c61b026e3ae0ee2aca438100828ed55d226bfad6 (patch) | |
tree | 5c26042e36ab58611bfeaaddf653394a7af2bf60 /guix/scripts/package.scm | |
parent | 80736cdf200105cb15872130cf1bb266c588505c (diff) | |
download | guix-patches-c61b026e3ae0ee2aca438100828ed55d226bfad6.tar guix-patches-c61b026e3ae0ee2aca438100828ed55d226bfad6.tar.gz |
ui: Add temporary file handling and atomic symlink switch.
* guix/scripts/download.scm (call-with-temporary-output-file): Move to
ui.scm.
* guix/scripts/package.scm (switch-symlinks): Likewise.
* guix/ui.scm (call-with-temporary-output-file, switch-symlinks): New
procedures.
Diffstat (limited to 'guix/scripts/package.scm')
-rw-r--r-- | guix/scripts/package.scm | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index 23786fb7d8..38e8ae1150 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -192,13 +192,6 @@ all of PACKAGES, a list of name/version/output/path/deps tuples." (compose string->number (cut match:substring <> 1))) 0)) -(define (switch-symlinks link target) - "Atomically switch LINK, a symbolic link, to point to TARGET. Works -both when LINK already exists and when it does not." - (let ((pivot (string-append link ".new"))) - (symlink target pivot) - (rename-file pivot link))) - (define (roll-back profile) "Roll back to the previous generation of PROFILE." (let* ((number (profile-number profile)) |