diff options
| -rw-r--r-- | scripts/nar-herder.in | 27 |
1 files changed, 15 insertions, 12 deletions
diff --git a/scripts/nar-herder.in b/scripts/nar-herder.in index 1c1d4d0..2f4d6d1 100644 --- a/scripts/nar-herder.in +++ b/scripts/nar-herder.in @@ -308,18 +308,21 @@ (call-with-progress-reporter progress (lambda (report) - (for-each (lambda (narinfo) - (database-insert-narinfo - database - (call-with-input-file narinfo - (lambda (port) - ;; Set url to a dummy value as this doesn't - ;; matter - (read-narinfo port "https://narherderdummyvalue"))) - #:tags (or (assq-ref opts 'tags) - '())) - - (report)) + (for-each (lambda (narinfo-file) + (let ((narinfo + (call-with-input-file narinfo-file + (lambda (port) + ;; Set url to a dummy value as this doesn't + ;; matter + (read-narinfo port + "https://narherderdummyvalue"))))) + (database-insert-narinfo + database + narinfo + #:tags (or (assq-ref opts 'tags) + '())) + + (report))) narinfos)))))) (("remove" rest ...) (let* ((opts (parse-options %base-options |