diff options
author | Christopher Baines <mail@cbaines.net> | 2019-11-24 20:42:37 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-11-24 20:42:37 +0000 |
commit | 2a3ee20a9973657b9cf0b4514ad42e3414d6b57e (patch) | |
tree | ccadeca7227b3f68211c3fad67ab832d01c2c680 /guix-data-service/web/controller.scm | |
parent | 33ecb7448eeb9e224b163f2b232630c8733a7cb6 (diff) | |
download | data-service-2a3ee20a9973657b9cf0b4514ad42e3414d6b57e.tar data-service-2a3ee20a9973657b9cf0b4514ad42e3414d6b57e.tar.gz |
Extract the builds page in to it's own set of modules
To allow for expanding it, without cluttering the root controller.
Diffstat (limited to 'guix-data-service/web/controller.scm')
-rw-r--r-- | guix-data-service/web/controller.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index 745537d..4397577 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -52,6 +52,7 @@ #:use-module (guix-data-service web sxml) #:use-module (guix-data-service web query-parameters) #:use-module (guix-data-service web util) + #:use-module (guix-data-service web build controller) #:use-module (guix-data-service web revision controller) #:use-module (guix-data-service web jobs controller) #:use-module (guix-data-service web view html) @@ -269,9 +270,7 @@ conn (first git-repository-details)))) (all-git-repositories conn))))) (('GET "builds") - (render-html - #:sxml (view-builds (select-build-stats conn) - (select-builds-with-context conn)))) + (delegate-to build-controller)) (('GET "statistics") (render-html #:sxml (view-statistics (count-guix-revisions conn) |