kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

serialize: Export 'dump-port*'.

Browse Source 
* guix/serialization.scm (dump): Export as 'dump-port*'.
* guix/scripts/challenge.scm (dump-port*): Remove.
This commit is contained in:
Ludovic Courtès 2020-01-15 23:34:46 +01:00
parent 305c908aac
commit 0aa6b38695
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
guix/scripts/challenge.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016, 2017, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -25,7 +25,7 @@
#:use-module (guix monads) #:use-module (guix monads)
#:use-module (guix base32) #:use-module (guix base32)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix progress) #:use-module ((guix progress) #:hide (dump-port*))
#:use-module (guix serialization) #:use-module (guix serialization)
#:use-module (guix scripts substitute) #:use-module (guix scripts substitute)
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
@ -193,9 +193,6 @@ taken since we do not import the archives."
;;; Reporting. ;;; Reporting.
;;; ;;;
(define dump-port* ;FIXME: deduplicate
(@@ (guix serialization) dump))
(define (port-sha256* port size) (define (port-sha256* port size)
;; Like 'port-sha256', but limited to SIZE bytes. ;; Like 'port-sha256', but limited to SIZE bytes.
(let-values (((out get) (open-sha256-port))) (let-values (((out get) (open-sha256-port)))

3
guix/serialization.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -36,6 +36,7 @@
write-string-pairs write-string-pairs
write-store-path read-store-path write-store-path read-store-path
write-store-path-list read-store-path-list write-store-path-list read-store-path-list
(dump . dump-port*)
&nar-error &nar-error
nar-error? nar-error?