TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

challenge: Use SRFI-71 instead of SRFI-11.

Browse source 
* guix/scripts/challenge.scm (port-sha256*, call-with-nar): Use SRFI-71.
This commit is contained in:
Ludovic Courtès 2021-12-11 16:03:57 +01:00
parent d5cfca23e3
commit c6903e156f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/scripts/challenge.scm
View file

@ -35,10 +35,10 @@ (define-module (guix scripts challenge)
#:use-module (gcrypt hash)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-9)
#:use-module (srfi srfi-11)
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-37)
#:use-module (srfi srfi-71)
#:use-module (ice-9 match)
#:use-module (ice-9 vlist)
#:use-module (ice-9 format)
@ -196,7 +196,7 @@ (define (select-reference item narinfos urls)
(define (port-sha256* port size)
;; Like 'port-sha256', but limited to SIZE bytes.
(let-values (((out get) (open-sha256-port)))
(let ((out get (open-sha256-port)))
(dump-port* port out size)
(close-port out)
(get)))
@ -251,10 +251,8 @@ (define short
(define (call-with-nar narinfo proc)
"Call PROC with an input port from which it can read the nar pointed to by
NARINFO."
(let*-values (((uri compression size)
(narinfo-best-uri narinfo))
((port actual-size)
(http-fetch uri)))
(let* ((uri compression size (narinfo-best-uri narinfo))
(port actual-size (http-fetch uri)))
(define reporter
(progress-reporter/file (narinfo-path narinfo)
(and size