diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2017-10-06 11:03:27 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2017-10-06 11:03:27 +0200 |
| commit | 6a317919cf0f9dbc651a4a41f9ed99c49bf2d543 (patch) | |
| tree | 9454b6c587b75ee1e3625be64f39cc39a5154db6 /guix/scripts/publish.scm | |
| parent | 68932812b8f6581dda4bf1896235492f687b7cc9 (diff) | |
| parent | 8bde6a524e19d2bc9763b84dbf99959faf653bf8 (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'guix/scripts/publish.scm')
| -rw-r--r-- | guix/scripts/publish.scm | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm index ade3c49a54..dd54f03996 100644 --- a/guix/scripts/publish.scm +++ b/guix/scripts/publish.scm @@ -484,9 +484,11 @@ requested using POOL." #:buffer-size (* 128 1024)) (rename-file (string-append nar ".tmp") nar)) ('none - ;; When compression is disabled, we retrieve files directly from the - ;; store; no need to cache them. - #t)) + ;; Cache nars even when compression is disabled so that we can + ;; guarantee the TTL (see <https://bugs.gnu.org/28664>.) + (with-atomic-file-output nar + (lambda (port) + (write-file item port))))) (mkdir-p (dirname narinfo)) (with-atomic-file-output narinfo @@ -788,8 +790,11 @@ blocking." ;; /nar/<store-item> ((components ... store-item) (if (nar-path? components) - (render-nar store request store-item - #:compression %no-compression) + (if cache + (render-nar/cached store cache request store-item + #:compression %no-compression) + (render-nar store request store-item + #:compression %no-compression)) (not-found request))) (x (not-found request))) |