diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-12-09 12:06:52 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-12-09 12:06:52 +0000 |
| commit | ac191dba7df238db26e4735e8e88aa9ad17f180d (patch) | |
| tree | 0b52a185b4882da4d98a4257a26700e3f837a091 | |
| parent | f5108528cde9f9b1fb21ab640d9eff6df5b484ef (diff) | |
| download | qa-frontpage-ac191dba7df238db26e4735e8e88aa9ad17f180d.tar qa-frontpage-ac191dba7df238db26e4735e8e88aa9ad17f180d.tar.gz | |
Enable selecting which values to cache with with-sqlite-cache
| -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 9254d6e..f16b9e0 100644 --- a/guix-qa-frontpage/database.scm +++ b/guix-qa-frontpage/database.scm @@ -419,7 +419,9 @@ SELECT data, timestamp FROM cache WHERE key = :key AND version = :version" proc #:args args)))) (lambda vals - (when store-computed-value? + (when (if (procedure? store-computed-value?) + (apply store-computed-value? vals) + store-computed-value?) (database-call-with-transaction database (lambda (db) |