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

* guix/http-client.scm (http-fetch/cached)[update-cache]: Add call to 'utime' in the 304 case.
2017-09-26 00:32:12 +02:00 · 2017-09-26 00:32:12 +02:00 · 06acf6b52f
parent 4f80158db0
commit 06acf6b52f
1 changed files with 3 additions and 1 deletions
--- a/guix/http-client.scm
+++ b/guix/http-client.scm
@ -321,7 +321,9 @@ Raise an '&http-get-error' condition if downloading fails."
      ;; Update the cache and return an input port.
      (guard (c ((http-get-error? c)
                 (if (= 304 (http-get-error-code c)) ;"Not Modified"
-                     cache-port
+                     (begin
+                       (utime file)               ;update FILE's mtime
+                       cache-port)
                     (raise c))))
        (let ((port (http-fetch uri #:text? text?
                                #:headers headers)))