[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: publish: Save bandwidth on narinfo 404s.
From: |
Ludovic Courtès |
Subject: |
01/02: publish: Save bandwidth on narinfo 404s. |
Date: |
Sat, 6 Jan 2018 08:47:12 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit f396611776e7ed6f1a070569a338ad56461b099e
Author: Ludovic Courtès <address@hidden>
Date: Sat Jan 6 14:43:45 2018 +0100
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.
---
guix/scripts/publish.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm
index dd54f03..3f3bc26 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 <address@hidden>
-;;; Copyright © 2015, 2016, 2017 Ludovic Courtès <address@hidden>
+;;; Copyright © 2015, 2016, 2017, 2018 Ludovic Courtès <address@hidden>
;;;
;;; 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)