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.
This commit is contained in:
Ludovic Courtès 2018-01-06 14:43:45 +01:00
parent af3f7f22f4
commit f396611776
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -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 @@ (define* (render-narinfo store request hash
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 @@ (define (delete-entry narinfo)
#: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)