guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]


From: Ludovic Courtès
Date: Tue, 26 Sep 2023 06:26:32 -0400 (EDT)

branch: master
commit 9d35eced9cbd8bfcaa0e0f741f7e81a95a05f940
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Sep 26 11:47:41 2023 +0200

    remote-server: Trim module imports.
    
    * src/cuirass/scripts/remote-server.scm: Trim module imports.
---
 src/cuirass/scripts/remote-server.scm | 21 ++++++---------------
 1 file changed, 6 insertions(+), 15 deletions(-)

diff --git a/src/cuirass/scripts/remote-server.scm 
b/src/cuirass/scripts/remote-server.scm
index bb7c7f8..21deccb 100644
--- a/src/cuirass/scripts/remote-server.scm
+++ b/src/cuirass/scripts/remote-server.scm
@@ -28,31 +28,22 @@
   #:use-module (cuirass remote)
   #:use-module (cuirass store)
   #:use-module (cuirass utils)
-  #:use-module (gcrypt pk-crypto)
   #:use-module (guix avahi)
-  #:use-module (guix base32)
-  #:use-module (guix base64)
-  #:use-module (guix config)
   #:use-module (guix derivations)
-  #:use-module (guix records)
-  #:use-module (guix packages)
-  #:use-module (guix pki)
+  #:use-module ((guix pki) #:select (%public-key-file %private-key-file))
   #:use-module (guix scripts)
-  #:use-module (guix serialization)
+  #:autoload   (guix serialization) (nar-error?)
   #:use-module ((guix store)
                 #:select (current-build-output-port
                           ensure-path
                           store-protocol-error?))
   #:use-module (guix ui)
-  #:use-module (guix utils)
-  #:use-module (guix workers)
-  #:use-module (guix build download)
-  #:use-module (guix build syscalls)
+  #:use-module ((guix utils)
+                #:select (cache-directory call-with-temporary-output-file))
   #:use-module ((guix build utils) #:select (mkdir-p))
-  #:use-module (gcrypt hash)
-  #:use-module (gcrypt pk-crypto)
+  #:autoload   (guix build download) (url-fetch)
+  #:autoload   (gcrypt pk-crypto) (read-file-sexp)
   #:use-module (simple-zmq)
-  #:use-module (rnrs bytevectors)
   #:use-module (srfi srfi-1)
   #:use-module ((srfi srfi-19) #:select (time-second time-nanosecond))
   #:use-module (srfi srfi-26)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]