From 5e2bc7c6e920e1542ab8fde39dbddca443a7cbc8 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 18 Oct 2019 18:44:42 +0100 Subject: Fix various warnings relating to the controller refactoring --- guix-data-service/web/compare/controller.scm | 4 ++++ guix-data-service/web/repository/controller.scm | 6 ++++++ guix-data-service/web/revision/controller.scm | 1 + guix-data-service/web/revision/html.scm | 1 + 4 files changed, 12 insertions(+) diff --git a/guix-data-service/web/compare/controller.scm b/guix-data-service/web/compare/controller.scm index d2af55f..381d25b 100644 --- a/guix-data-service/web/compare/controller.scm +++ b/guix-data-service/web/compare/controller.scm @@ -19,11 +19,13 @@ #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) #:use-module (ice-9 match) + #:use-module (ice-9 vlist) #:use-module (guix-data-service web util) #:use-module (guix-data-service web render) #:use-module (guix-data-service web query-parameters) #:use-module (guix-data-service model utils) #:use-module (guix-data-service comparison) + #:use-module (guix-data-service jobs load-new-guix-revision) #:use-module (guix-data-service model guix-revision) #:use-module (guix-data-service model derivation) #:use-module (guix-data-service model build-status) @@ -378,6 +380,8 @@ query-parameters (valid-systems conn) build-status-strings + '() + '() '())))) (let ((base-branch (assq-ref query-parameters 'base_branch)) diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm index b3d2586..23e3559 100644 --- a/guix-data-service/web/repository/controller.scm +++ b/guix-data-service/web/repository/controller.scm @@ -17,12 +17,16 @@ (define-module (guix-data-service web repository controller) #:use-module (ice-9 match) + #:use-module (web uri) + #:use-module (web request) #:use-module (guix-data-service web render) #:use-module (guix-data-service web query-parameters) #:use-module (guix-data-service web util) #:use-module (guix-data-service model package) #:use-module (guix-data-service model git-branch) #:use-module (guix-data-service model git-repository) + #:use-module (guix-data-service web view html) + #:use-module (guix-data-service web revision controller) #:use-module (guix-data-service web repository html) #:export (repository-controller)) @@ -31,6 +35,8 @@ mime-types body conn) + (define path + (uri-path (request-uri request))) (match method-and-path-components (('GET "repository" id) diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index 56575b3..51d9212 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -22,6 +22,7 @@ #:use-module (texinfo) #:use-module (texinfo html) #:use-module (texinfo plain-text) + #:use-module (json) #:use-module (guix-data-service web render) #:use-module (guix-data-service web sxml) #:use-module (guix-data-service web query-parameters) diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index f9f4500..f2458e2 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -20,6 +20,7 @@ #:use-module (ice-9 match) #:use-module (texinfo) #:use-module (texinfo html) + #:use-module (json) #:use-module (guix-data-service web util) #:use-module (guix-data-service web query-parameters) #:use-module (guix-data-service web view html) -- cgit v1.2.3