Address a bunch of warnings from Guile

8 files changed, 1 insertions, 37 deletions

diff --git a/bffe/config.scm.in b/bffe/config.scm.in
index 19e5832..7af9d4d 100644
--- a/bffe/config.scm.in
+++ b/bffe/config.scm.in
@@ -17,7 +17,6 @@
 ;;; <http://www.gnu.org/licenses/>.
 
 (define-module (bffe config)
-  #:use-module (guix store)
   #:export (%config))
 
 (define %config
diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm
index 16484c3..8e6dfc8 100644
--- a/bffe/manage-builds.scm
+++ b/bffe/manage-builds.scm
@@ -21,20 +21,16 @@
   #:use-module (srfi srfi-71)
   #:use-module (ice-9 match)
   #:use-module (ice-9 exceptions)
-  #:use-module (rnrs bytevectors)
   #:use-module (ice-9 textual-ports)
   #:use-module (logging logger)
-  #:use-module (logging port-log)
   #:use-module (zlib)
   #:use-module (json)
   #:use-module (fibers)
   #:use-module (fibers channels)
   #:use-module (guix records)
   #:use-module (web uri)
-  #:use-module (web client)
   #:use-module (web response)
   #:use-module (guix-build-coordinator client-communication)
-  #:use-module ((guix-build-coordinator utils) #:select (create-work-queue))
   #:use-module ((guix-build-coordinator utils fibers) #:select (retry-on-error))
   #:use-module (bffe server)
   #:export (build-from-guix-data-service
diff --git a/bffe/server.scm b/bffe/server.scm
index dc9a06d..eae7291 100644
--- a/bffe/server.scm
+++ b/bffe/server.scm
@@ -24,12 +24,9 @@
   #:use-module (srfi srfi-19)
   #:use-module (srfi srfi-71)
   #:use-module (ice-9 vlist)
-  #:use-module (ice-9 threads)
   #:use-module (ice-9 match)
   #:use-module (ice-9 atomic)
   #:use-module (ice-9 textual-ports)
-  #:use-module (rnrs bytevectors)
-  #:use-module (web http)
   #:use-module (web client)
   #:use-module (web request)
   #:use-module (web response)
@@ -38,18 +35,11 @@
   #:use-module (prometheus)
   #:use-module (system repl error-handling)
   #:use-module (fibers)
-  #:use-module (fibers scheduler)
   #:use-module (fibers channels)
-  #:use-module (fibers conditions)
-  #:use-module (fibers web server)
   #:use-module ((guix store) #:select (%store-prefix))
-  #:use-module ((guix build utils) #:select (dump-port))
   #:use-module (guix-data-service web util)
-  #:use-module ((guix-build-coordinator utils)
-                #:select (with-time-logging call-with-delay-logging))
   #:use-module ((guix-build-coordinator utils fibers)
                 #:select (run-server/patched retry-on-error))
-  #:use-module (guix-build-coordinator client-communication)
   #:use-module (bffe config)
   #:use-module (bffe view util)
   #:use-module (bffe view home)
@@ -154,7 +144,7 @@
                             (lambda ()
                               (with-throw-handler #t
                                 (lambda ()
-                                  (let ((response
+                                  (let ((_
                                          body
                                          (http-get*
                                           (string->uri
diff --git a/bffe/view/activity.scm b/bffe/view/activity.scm
index 1621872..5a97bd2 100644
--- a/bffe/view/activity.scm
+++ b/bffe/view/activity.scm
@@ -2,7 +2,6 @@
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-19)
   #:use-module (ice-9 match)
-  #:use-module (ice-9 format)
   #:use-module (bffe view util)
   #:use-module ((guix store) #:select (%store-prefix))
   #:export (activity))
diff --git a/bffe/view/agent.scm b/bffe/view/agent.scm
index e210402..1de2f71 100644
--- a/bffe/view/agent.scm
+++ b/bffe/view/agent.scm
@@ -1,10 +1,6 @@
 (define-module (bffe view agent)
   #:use-module (srfi srfi-1)
-  #:use-module (srfi srfi-19)
-  #:use-module (ice-9 match)
-  #:use-module (ice-9 format)
   #:use-module (bffe view util)
-  #:use-module ((guix store) #:select (%store-prefix))
   #:export (agent))
 
 (define (agent title agent-details)
diff --git a/bffe/view/build.scm b/bffe/view/build.scm
index ded00ef..c061668 100644
--- a/bffe/view/build.scm
+++ b/bffe/view/build.scm
@@ -1,10 +1,6 @@
 (define-module (bffe view build)
   #:use-module (srfi srfi-1)
-  #:use-module (srfi srfi-19)
-  #:use-module (ice-9 match)
-  #:use-module (ice-9 format)
   #:use-module (bffe view util)
-  #:use-module ((guix store) #:select (%store-prefix))
   #:export (build))
 
 (define (build title build-details derivation-link-target tag-link-target)
diff --git a/bffe/view/home.scm b/bffe/view/home.scm
index 820f75f..3f3b1de 100644
--- a/bffe/view/home.scm
+++ b/bffe/view/home.scm
@@ -1,8 +1,4 @@
 (define-module (bffe view home)
-  #:use-module (srfi srfi-1)
-  #:use-module (srfi srfi-19)
-  #:use-module (ice-9 match)
-  #:use-module (ice-9 format)
   #:use-module (bffe view util)
   #:export (home))
 
diff --git a/bffe/view/util.scm b/bffe/view/util.scm
index 9b4a676..c6b89b0 100644
--- a/bffe/view/util.scm
+++ b/bffe/view/util.scm
@@ -17,23 +17,15 @@
 ;;; <http://www.gnu.org/licenses/>.
 
 (define-module (bffe view util)
-  #:use-module (guix-data-service config)
-  #:use-module (guix-data-service web query-parameters)
   #:use-module (guix-data-service web util)
-  #:use-module (guix-data-service web html-utils)
   #:use-module ((guix-data-service web render) #:prefix guix-data-service:)
   #:use-module (ice-9 ftw)
-  #:use-module (ice-9 vlist)
   #:use-module (ice-9 match)
   #:use-module (ice-9 binary-ports)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-19)
   #:use-module (srfi srfi-26)
-  #:use-module (web uri)
   #:use-module (web response)
-  #:use-module (texinfo)
-  #:use-module (texinfo html)
-  #:use-module (json)
   #:export (layout
             header
             form-horizontal-control