summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-01-15 23:34:46 +0100
committerLudovic Courtès <ludo@gnu.org>2020-01-15 23:48:33 +0100
commit0aa6b3869584dba5916039b8e71b6532463e42ab (patch)
treec6e4c0ac2922d4ae3dd66c779c2980fa2e8cc0a5
parent305c908aac9ed3ec1be9361cb998d6a25c15fded (diff)
serialize: Export 'dump-port*'.
* guix/serialization.scm (dump): Export as 'dump-port*'. * guix/scripts/challenge.scm (dump-port*): Remove.
-rw-r--r--guix/scripts/challenge.scm7
-rw-r--r--guix/serialization.scm3
2 files changed, 4 insertions, 6 deletions
diff --git a/guix/scripts/challenge.scm b/guix/scripts/challenge.scm
index ebeebd5cbe..65e2427033 100644
--- a/guix/scripts/challenge.scm
+++ b/guix/scripts/challenge.scm
@@ -1,5 +1,5 @@
;;; 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.
;;;
@@ -25,7 +25,7 @@
#:use-module (guix monads)
#:use-module (guix base32)
#:use-module (guix packages)
- #:use-module (guix progress)
+ #:use-module ((guix progress) #:hide (dump-port*))
#:use-module (guix serialization)
#:use-module (guix scripts substitute)
#:use-module (rnrs bytevectors)
@@ -193,9 +193,6 @@ taken since we do not import the archives."
;;; Reporting.
;;;
-(define dump-port* ;FIXME: deduplicate
- (@@ (guix serialization) dump))
-
(define (port-sha256* port size)
;; Like 'port-sha256', but limited to SIZE bytes.
(let-values (((out get) (open-sha256-port)))
diff --git a/guix/serialization.scm b/guix/serialization.scm
index f793feb53d..9452303730 100644
--- a/guix/serialization.scm
+++ b/guix/serialization.scm
@@ -1,5 +1,5 @@
;;; 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.
;;;
@@ -36,6 +36,7 @@
write-string-pairs
write-store-path read-store-path
write-store-path-list read-store-path-list
+ (dump . dump-port*)
&nar-error
nar-error?