From 34f84adaf3f2c332281ecf0004f5a580c909c290 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 23 Jun 2024 17:26:22 +0100 Subject: Allow specifying the minimum free space --- scripts/nar-herder.in | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'scripts/nar-herder.in') diff --git a/scripts/nar-herder.in b/scripts/nar-herder.in index a0e3127..a611018 100644 --- a/scripts/nar-herder.in +++ b/scripts/nar-herder.in @@ -148,6 +148,13 @@ "none" (string->number arg)) (alist-delete 'storage-limit result)))) + (option '("storage-minimum-free-space") #t #f + (lambda (opt name arg result) + (alist-cons 'storage-minimum-free-space + (if (string=? arg "none") + "none" + (string->number arg)) + (alist-delete 'storage-minimum-free-space result)))) ;; (stored-on https://other-nar-herder-server) ;; and=((stored-on https://other-nar-herder-server) (stored-on https://different-server)) -- cgit v1.2.3