From bdfaab91e82d7d43c35405da3b18c46cde8096de Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 16 Mar 2024 09:47:39 +0000 Subject: Address a bunch of warnings from Guile --- bffe/config.scm.in | 1 - bffe/manage-builds.scm | 4 ---- bffe/server.scm | 12 +----------- bffe/view/activity.scm | 1 - bffe/view/agent.scm | 4 ---- bffe/view/build.scm | 4 ---- bffe/view/home.scm | 4 ---- bffe/view/util.scm | 8 -------- 8 files changed, 1 insertion(+), 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 @@ ;;; . (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 @@ ;;; . (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 -- cgit v1.2.3