scripts: publish: Export procedures.
* guix/scripts/publish.scm (open-server-socket, run-publish-server): Export those procedures. (%default-gzip-compression): Export it.
This commit is contained in:
		
							parent
							
								
									2a7e1121d8
								
							
						
					
					
						commit
						edfa066dca
					
				
					 1 changed files with 5 additions and 1 deletions
				
			
		| 
						 | 
					@ -63,10 +63,14 @@
 | 
				
			||||||
  #:use-module ((guix build utils)
 | 
					  #:use-module ((guix build utils)
 | 
				
			||||||
                #:select (dump-port mkdir-p find-files))
 | 
					                #:select (dump-port mkdir-p find-files))
 | 
				
			||||||
  #:use-module ((guix build syscalls) #:select (set-thread-name))
 | 
					  #:use-module ((guix build syscalls) #:select (set-thread-name))
 | 
				
			||||||
  #:export (%public-key
 | 
					  #:export (%default-gzip-compression
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					            %public-key
 | 
				
			||||||
            %private-key
 | 
					            %private-key
 | 
				
			||||||
            signed-string
 | 
					            signed-string
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					            open-server-socket
 | 
				
			||||||
 | 
					            run-publish-server
 | 
				
			||||||
            guix-publish))
 | 
					            guix-publish))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
(define (show-help)
 | 
					(define (show-help)
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue