gnu-maintenance: Fix file descriptor leak.
* guix/gnu-maintenance.scm (official-gnu-packages): Close the port returned by FETCH.
This commit is contained in:
parent
9aec35d265
commit
2134228a7d
|
@ -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."
|
||||
|
|
Loading…
Reference in New Issue