diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-04-07 14:29:56 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-07 14:29:56 +0200 |
| commit | a4bf12faba19b33c90d9f50908b56347842c95d7 (patch) | |
| tree | 130e03fcc9d6ff0d087c042774bc195d114bc182 /scripts | |
| parent | dc0ede962970f3ffec112f94f45280cc951adb3e (diff) | |
scripts: Remove fetch-messages!.
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/mumi.in | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/scripts/mumi.in b/scripts/mumi.in index 1e1b7de..e0da257 100644 --- a/scripts/mumi.in +++ b/scripts/mumi.in @@ -26,7 +26,6 @@ (srfi srfi-37) (system repl server) (ice-9 match) - (ice-9 threads) (ice-9 format) (mumi config) (mumi bugs) @@ -56,34 +55,10 @@ (format (current-error-port) "Failed to index `~a'~%" (%config 'mail-dir))))))) -(define (fetch-messages!) - (let ((bug-nums - (sort (append-map (lambda (package) - (soap-invoke* (%config 'debbugs) - get-bugs - `((package . ,package)))) - (%config 'packages)) <))) - (for-each (lambda (bug-num i) - (let ((msg-nums - (match (soap-invoke* (%config 'debbugs) - get-bug-message-numbers - bug-num) - ((nums . ids) nums)))) - (format (current-error-port) - "[~a/~a] Refreshing ~a messages of bug ~a...~%" - i (length bug-nums) - (length msg-nums) bug-num) - (parameterize ((current-error-port (%make-void-port OPEN_WRITE))) - (par-for-each (cut download-message bug-num <>) - msg-nums)))) - (reverse bug-nums) - (iota (length bug-nums) 1)))) - (define update-state! (lambda _ (catch #t (lambda () - (fetch-messages!) (mu-index) (update-bug-database!) (sleep %update-interval) |