diff options
author | Marius Bakke <mbakke@fastmail.com> | 2017-09-27 21:14:27 +0200 |
---|---|---|
committer | Marius Bakke <mbakke@fastmail.com> | 2017-09-27 21:14:27 +0200 |
commit | 9f1d112d1282216f16b2f673c8213d2839e39b7a (patch) | |
tree | 890d036d75ae0d38ebff39a4be000959e71409ec /guix/http-client.scm | |
parent | 859620e51db0b7ffb666cd47146eca4fd4d6ba63 (diff) | |
parent | cb1e0cfc2f32e6811da588231497d896491ceabb (diff) | |
download | guix-patches-9f1d112d1282216f16b2f673c8213d2839e39b7a.tar guix-patches-9f1d112d1282216f16b2f673c8213d2839e39b7a.tar.gz |
Merge branch 'master' into staging
Diffstat (limited to 'guix/http-client.scm')
-rw-r--r-- | guix/http-client.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/http-client.scm b/guix/http-client.scm index 853bba4fe3..59788c1f38 100644 --- 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))) |