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

http-client: 'http-fetch/cached' updates the cache atomically. 

* guix/http-client.scm (http-fetch/cached)[update-cache]: Use
'with-atomic-file-output' instead of 'call-with-output-file'.
This commit is contained in:
Ludovic Courtès 2016-02-25 16:49:11 +01:00
parent 736f9ffce2
commit e72f50a787
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
guix/http-client.scm
View File

@ -291,7 +291,7 @@ Raise an '&http-get-error' condition if downloading fails."
;; Update the cache and return an input port. ;; Update the cache and return an input port.
(let ((port (http-fetch uri #:text? text?))) (let ((port (http-fetch uri #:text? text?)))
(mkdir-p directory) (mkdir-p directory)
(call-with-output-file file (with-atomic-file-output file
(cut dump-port port <>)) (cut dump-port port <>))
(close-port port) (close-port port)
(open-input-file file))) (open-input-file file)))