diff options
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 |