02/03: scripts: publish: Export procedures.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit edfa066dca7186ddcff836f70bf0c5a8f01f1ce4
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Wed Nov 4 14:40:08 2020 +0100

    scripts: publish: Export procedures.
    
    * guix/scripts/publish.scm (open-server-socket, run-publish-server): Export
    those procedures.
    (%default-gzip-compression): Export it.
---
 guix/scripts/publish.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm
index f1a9970..2a2185e 100644
--- a/guix/scripts/publish.scm
+++ b/guix/scripts/publish.scm
@@ -63,10 +63,14 @@
   #:use-module ((guix build utils)
                 #:select (dump-port mkdir-p find-files))
   #:use-module ((guix build syscalls) #:select (set-thread-name))
-  #:export (%public-key
+  #:export (%default-gzip-compression
+
+            %public-key
             %private-key
             signed-string
 
+            open-server-socket
+            run-publish-server
             guix-publish))
 
 (define (show-help)