diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-11 08:30:15 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-11 08:30:15 +0100 |
| commit | 0e89dbb67e4925cec6b0120c5ed9e8a861a0c1b1 (patch) | |
| tree | 7562883484a2401815623793f8b69c40a2e6c0be | |
| parent | cb5ff917725363ce2bb46cc675029833e207a867 (diff) | |
| download | nar-herder-0e89dbb67e4925cec6b0120c5ed9e8a861a0c1b1.tar nar-herder-0e89dbb67e4925cec6b0120c5ed9e8a861a0c1b1.tar.gz | |
Simplify output when importing a single narinfo
| -rw-r--r-- | scripts/nar-herder.in | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/scripts/nar-herder.in b/scripts/nar-herder.in index 515b98a..ce91fcd 100644 --- a/scripts/nar-herder.in +++ b/scripts/nar-herder.in @@ -391,10 +391,12 @@ (assq-ref opts 'arguments))) (len (length narinfos)) (progress - (progress-reporter/bar len - (format #f "importing ~a narinfos" - len) - (current-error-port)))) + (if (= 1 len) + progress-reporter/silent + (progress-reporter/bar len + (format #f "importing ~a narinfos" + len) + (current-error-port))))) (call-with-progress-reporter progress (lambda (report) @@ -443,7 +445,9 @@ "missing reference to ~A\n" reference)))) (narinfo-references narinfo)))) - read-narinfos)))))))))) + read-narinfos))))))) + (when (= 1 len) + (simple-format (current-error-port) "imported narinfo\n"))))) (("remove" rest ...) (let* ((opts (parse-options %base-options %base-option-defaults |