Fix various warnings relating to the controller refactoring

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))

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)

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)

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)