diff options
| -rw-r--r-- | guix/gnu-maintenance.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index 920aae2173..e09df4b3ef 100644 --- a/guix/gnu-maintenance.scm +++ b/guix/gnu-maintenance.scm @@ -161,7 +161,10 @@ to fetch the list of GNU packages over HTTP." "doc-url" "download-url") '("doc-url" "language")))) - (read-records (fetch %package-list-url #:text? #t)))) + (let* ((port (fetch %package-list-url #:text? #t)) + (lst (read-records port))) + (close-port port) + lst))) (define (find-packages regexp) "Find GNU packages which satisfy REGEXP." |