cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix various warnings relating to the controller refactoring

Browse source
This commit is contained in:
Christopher Baines 2019-10-18 18:44:42 +01:00
parent aee903bc8c
commit 5e2bc7c6e9
4 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix-data-service/web/compare/controller.scm
View file

@ -19,11 +19,13 @@
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-11) #:use-module (srfi srfi-11)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (ice-9 vlist)
#:use-module (guix-data-service web util) #:use-module (guix-data-service web util)
#:use-module (guix-data-service web render) #:use-module (guix-data-service web render)
#:use-module (guix-data-service web query-parameters) #:use-module (guix-data-service web query-parameters)
#:use-module (guix-data-service model utils) #:use-module (guix-data-service model utils)
#:use-module (guix-data-service comparison) #: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 guix-revision)
#:use-module (guix-data-service model derivation) #:use-module (guix-data-service model derivation)
#:use-module (guix-data-service model build-status) #:use-module (guix-data-service model build-status)
@ -378,6 +380,8 @@
query-parameters query-parameters
(valid-systems conn) (valid-systems conn)
build-status-strings build-status-strings
'()
'()
'())))) '()))))
(let ((base-branch (assq-ref query-parameters 'base_branch)) (let ((base-branch (assq-ref query-parameters 'base_branch))

6
guix-data-service/web/repository/controller.scm
View file

@ -17,12 +17,16 @@
(define-module (guix-data-service web repository controller) (define-module (guix-data-service web repository controller)
#:use-module (ice-9 match) #: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 render)
#:use-module (guix-data-service web query-parameters) #:use-module (guix-data-service web query-parameters)
#:use-module (guix-data-service web util) #:use-module (guix-data-service web util)
#:use-module (guix-data-service model package) #:use-module (guix-data-service model package)
#:use-module (guix-data-service model git-branch) #:use-module (guix-data-service model git-branch)
#:use-module (guix-data-service model git-repository) #: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) #:use-module (guix-data-service web repository html)
#:export (repository-controller)) #:export (repository-controller))
@ -31,6 +35,8 @@
mime-types mime-types
body body
conn) conn)
(define path
(uri-path (request-uri request)))
(match method-and-path-components (match method-and-path-components
(('GET "repository" id) (('GET "repository" id)

1
guix-data-service/web/revision/controller.scm
View file

@ -22,6 +22,7 @@
#:use-module (texinfo) #:use-module (texinfo)
#:use-module (texinfo html) #:use-module (texinfo html)
#:use-module (texinfo plain-text) #:use-module (texinfo plain-text)
#:use-module (json)
#:use-module (guix-data-service web render) #:use-module (guix-data-service web render)
#:use-module (guix-data-service web sxml) #:use-module (guix-data-service web sxml)
#:use-module (guix-data-service web query-parameters) #:use-module (guix-data-service web query-parameters)

1
guix-data-service/web/revision/html.scm
View file

@ -20,6 +20,7 @@
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (texinfo) #:use-module (texinfo)
#:use-module (texinfo html) #:use-module (texinfo html)
#:use-module (json)
#:use-module (guix-data-service web util) #:use-module (guix-data-service web util)
#:use-module (guix-data-service web query-parameters) #:use-module (guix-data-service web query-parameters)
#:use-module (guix-data-service web view html) #:use-module (guix-data-service web view html)