From f38d7cb65a608ef5c8c3299e72b3cde2360f85bb Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 17 Nov 2022 21:10:34 +0000 Subject: Don't log guix-data-service-error's As these are to be expected. --- guix-qa-frontpage/database.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'guix-qa-frontpage/database.scm') diff --git a/guix-qa-frontpage/database.scm b/guix-qa-frontpage/database.scm index 7c1a052..ea9ad96 100644 --- a/guix-qa-frontpage/database.scm +++ b/guix-qa-frontpage/database.scm @@ -32,6 +32,7 @@ #:use-module (guix derivations) #:use-module (guix-build-coordinator utils) #:use-module (guix-build-coordinator utils fibers) + #:use-module (guix-qa-frontpage guix-data-service) #:export (setup-database database-optimize @@ -136,7 +137,10 @@ SELECT name FROM sqlite_master WHERE type = 'table' AND name = :name"))) (format (current-error-port) "warning: database write delayed by ~1,2f seconds~%" - seconds-delayed)))))) + seconds-delayed)))) + #:log-exception? + (lambda (exn) + (not (guix-data-service-error? exn))))) (writer-thread-channel (make-worker-thread-channel (lambda () -- cgit v1.2.3