ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-27 14:52:05 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

import: hackage: Silence download output.

Browse source 
* guix/import/hackage.scm (hackage-fetch): Use http-fetch to avoid
  progress output from url-fetch.
This commit is contained in:
Eric Bavier 2016-03-22 22:38:54 -05:00
parent f9ea74ad04
commit 2ae9c63f15
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
guix/import/hackage.scm
View file

@ -26,6 +26,7 @@ (define-module (guix import hackage)
#:use-module ((guix utils) #:select (package-name->name+version #:use-module ((guix utils) #:select (package-name->name+version
canonical-newline-port)) canonical-newline-port))
#:use-module (guix import utils) #:use-module (guix import utils)
#:use-module (guix http-client)
#:use-module (guix import cabal) #:use-module (guix import cabal)
#:use-module (guix store) #:use-module (guix store)
#:use-module (guix hash) #:use-module (guix hash)
@ -92,13 +93,12 @@ (define (hackage-fetch name-version)
"Return the Cabal file for the package NAME-VERSION, or #f on failure. If "Return the Cabal file for the package NAME-VERSION, or #f on failure. If
the version part is omitted from the package name, then return the latest the version part is omitted from the package name, then return the latest
version." version."
(let*-values (((name version) (package-name->name+version name-version)) (let-values (((name version) (package-name->name+version name-version)))
((url) (hackage-cabal-url name version))) (let* ((url (hackage-cabal-url name version))
(call-with-temporary-output-file (port (http-fetch url))
(lambda (temp port) (result (read-cabal (canonical-newline-port port))))
(and (url-fetch url temp) (close-port port)
(call-with-input-file temp result)))
(compose read-cabal canonical-newline-port)))))))
(define string->license (define string->license
;; List of valid values from ;; List of valid values from