diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-01-06 14:43:45 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-06 14:43:45 +0100 |
| commit | f396611776e7ed6f1a070569a338ad56461b099e (patch) | |
| tree | f3b1e8d8e92605ccde66df0ccdd07ac0cfe1c38a | |
| parent | af3f7f22f43fbbdca9bdc00afc476dd2ac86c017 (diff) | |
| download | guix-f396611776e7ed6f1a070569a338ad56461b099e.tar.gz | |
publish: Save bandwidth on narinfo 404s.
This saves 18 bytes on each 404 narinfo response. * guix/scripts/publish.scm (render-narinfo): Pass #:phrase to 'not-found'. (render-narinfo/cached): Likewise.
| -rw-r--r-- | guix/scripts/publish.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm index dd54f03996..3f3bc26972 100644 --- a/guix/scripts/publish.scm +++ b/guix/scripts/publish.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 David Thompson <davet@gnu.org> -;;; Copyright © 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -326,7 +326,7 @@ advertise it as the maximum validity period (in seconds) via the appropriate duration. NAR-PATH specifies the prefix for nar URLs." (let ((store-path (hash-part->path store hash))) (if (string-null? store-path) - (not-found request) + (not-found request #:phrase "") (values `((content-type . (application/x-nix-narinfo)) ,@(if ttl `((cache-control (max-age . ,ttl))) @@ -461,7 +461,7 @@ requested using POOL." #:phrase "We're baking it" #:ttl 300)) ;should be available within 5m (else - (not-found request))))) + (not-found request #:phrase ""))))) (define* (bake-narinfo+nar cache item #:key ttl (compression %no-compression) |