me/guix
Archived
1
0
Fork 0
Code Activity

http-client: Reset cache TTL upon 304 "Not Modified" responses.

Browse source 
* guix/http-client.scm (http-fetch/cached)[update-cache]: Add call to
'utime' in the 304 case.
This commit is contained in:
Ludovic Courtès 2017-09-26 00:32:12 +02:00
parent 4f80158db0
commit 06acf6b52f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/http-client.scm
View file

@ -321,7 +321,9 @@ 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.
(guard (c ((http-get-error? c) (guard (c ((http-get-error? c)
(if (= 304 (http-get-error-code c)) ;"Not Modified" (if (= 304 (http-get-error-code c)) ;"Not Modified"
cache-port (begin
(utime file) ;update FILE's mtime
cache-port)
(raise c)))) (raise c))))
(let ((port (http-fetch uri #:text? text? (let ((port (http-fetch uri #:text? text?
#:headers headers))) #:headers headers)))