From 99e3e45eea6957260798fecba4a692f297cec309 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 16 Oct 2023 10:02:14 +0100 Subject: Handle versions in clear-sqlite-cache-entry --- guix-qa-frontpage/database.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'guix-qa-frontpage') diff --git a/guix-qa-frontpage/database.scm b/guix-qa-frontpage/database.scm index e1a018c..7aab813 100644 --- a/guix-qa-frontpage/database.scm +++ b/guix-qa-frontpage/database.scm @@ -366,12 +366,14 @@ PRAGMA optimize;"))) (define* (clear-sqlite-cache-entry database key - #:key (args '())) + #:key (args '()) (version 1)) (define string-key (call-with-output-string (lambda (port) (write key port) + (display "|" port) + (write version port) (display ": " port) (write args port)))) -- cgit v1.2.3