HCoop
/
jackhill
/
guix
/
guix.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
736f9ff
)
http-client: 'http-fetch/cached' updates the cache atomically.
author
Ludovic Courtès
<ludo@gnu.org>
Thu, 25 Feb 2016 15:49:11 +0000
(16:49 +0100)
committer
Ludovic Courtès
<ludo@gnu.org>
Thu, 25 Feb 2016 15:49:11 +0000
(16:49 +0100)
* guix/http-client.scm (http-fetch/cached)[update-cache]: Use
'with-atomic-file-output' instead of 'call-with-output-file'.
guix/http-client.scm
patch
|
blob
|
blame
|
history
diff --git
a/guix/http-client.scm
b/guix/http-client.scm
index
31b511e
..
b26795c
100644
(file)
--- a/
guix/http-client.scm
+++ b/
guix/http-client.scm
@@
-291,7
+291,7
@@
Raise an '&http-get-error' condition if downloading fails."
;; Update the cache and return an input port.
(let ((port (http-fetch uri #:text? text?)))
(mkdir-p directory)
- (
call-with-output-file
file
+ (
with-atomic-file-output
file
(cut dump-port port <>))
(close-port port)
(open-input-file file)))