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:
parent
736f9ffce2
commit
e72f50a787
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue