diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-05-19 08:59:58 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-05-19 08:59:58 +0100 |
| commit | 285437697d524f4205a7f1c25a23d9ef771412f2 (patch) | |
| tree | 4772e6543bb721e71ef8ed34a2245de9507fd47f /scripts | |
| parent | a24fbd108f75c8f27d2f68f2d1a051e2f3f3e191 (diff) | |
| download | nar-herder-285437697d524f4205a7f1c25a23d9ef771412f2.tar nar-herder-285437697d524f4205a7f1c25a23d9ef771412f2.tar.gz | |
Fiddle more with the nar removal criteria
This should make the singular stored-on and and'ed stored-on work
properly.
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/nar-herder.in | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/scripts/nar-herder.in b/scripts/nar-herder.in index 37705bc..32a2afa 100644 --- a/scripts/nar-herder.in +++ b/scripts/nar-herder.in @@ -131,8 +131,9 @@ (lambda (opt name arg result) (alist-cons 'storage-nar-removal-criteria (match (string-split arg #\=) - ((sym rest ...) - (cons (string->symbol sym) rest))) + ((sym rest) + (list (string->symbol sym) + (call-with-input-string rest read)))) result))) (option '("ttl") #t #f |