diff options
author | Christopher Baines <mail@cbaines.net> | 2023-10-16 10:02:14 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-10-16 10:02:14 +0100 |
commit | 99e3e45eea6957260798fecba4a692f297cec309 (patch) | |
tree | cbb4e357e74734d021cc9fe36fb2284d1406d0fd | |
parent | f7d2b0edb0aab71178df3fcb24e0dddab6dbd1ea (diff) | |
download | qa-frontpage-99e3e45eea6957260798fecba4a692f297cec309.tar qa-frontpage-99e3e45eea6957260798fecba4a692f297cec309.tar.gz |
Handle versions in clear-sqlite-cache-entry
-rw-r--r-- | guix-qa-frontpage/database.scm | 4 |
1 files changed, 3 insertions, 1 deletions
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)))) |