diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2022-06-03 23:41:01 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2022-06-03 23:41:01 +0200 |
| commit | 43839c8085b5b02e6e8829bcfb47a04b29a37a86 (patch) | |
| tree | e9d8cddad46e59a219e83d2bfb17314a41013b7c | |
| parent | 305576bb43ea982ee176a0c030031dafdd73b331 (diff) | |
jobs: set-status!: Expire after a month.
| -rw-r--r-- | mumi/jobs.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/mumi/jobs.scm b/mumi/jobs.scm index 69ef2b2..c4aca00 100644 --- a/mumi/jobs.scm +++ b/mumi/jobs.scm @@ -63,9 +63,11 @@ (define get-status (make-getter "status")) (define (set-status! item status) - (set (list (string-append %prefix "status:" item) - (string-append status ":" - (number->string (current-time)))))) + (let ((key (string-append %prefix "status:" item))) + (with-redis + (transaction + (set (list key status)) + (expire (list key (* 60 60 24 30))))))) ;delete after a month (define (next-waiting) "Wait for an item to appear on the waiting list, then move it to |