diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-04-15 14:32:40 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-04-15 15:58:17 +0100 |
| commit | 3b05aa5f924c6c199ac8da0653223ad9ef55ce83 (patch) | |
| tree | d5d37a048d1d0c7eab320c48f286f926d8aefc65 /nar-herder/server.scm | |
| parent | 6ceb0a3b3000ce85a9263833b2398cb44a2871eb (diff) | |
| download | nar-herder-3b05aa5f924c6c199ac8da0653223ad9ef55ce83.tar nar-herder-3b05aa5f924c6c199ac8da0653223ad9ef55ce83.tar.gz | |
Don't block the removal-channel when running a full pass
Diffstat (limited to 'nar-herder/server.scm')
| -rw-r--r-- | nar-herder/server.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/nar-herder/server.scm b/nar-herder/server.scm index 61f11e3..4b5f710 100644 --- a/nar-herder/server.scm +++ b/nar-herder/server.scm @@ -817,17 +817,17 @@ (spawn-fiber (lambda () (sleep 60) - (put-message removal-channel - `(remove-from-storage ,file)) + (removal-channel-remove-nar-from-storage removal-channel + file) (sleep (* 5 60)) - (put-message removal-channel - `(remove-from-storage ,file)) + (removal-channel-remove-nar-from-storage removal-channel + file) (sleep (* 15 60)) - (put-message removal-channel - `(remove-from-storage ,file)) + (removal-channel-remove-nar-from-storage removal-channel + file) (sleep 3600) - (put-message removal-channel - `(remove-from-storage ,file)))))))))) + (removal-channel-remove-nar-from-storage removal-channel + file))))))))) (start-recent-change-listener-fiber database |