Browse Source

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'.
gn-latest-20200428
Ludovic Courtès 6 years ago
parent
commit
e72f50a787
  1. 2
      guix/http-client.scm

2
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)))

Loading…
Cancel
Save