diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-10-18 18:44:42 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-10-18 18:44:42 +0100 |
| commit | 5e2bc7c6e920e1542ab8fde39dbddca443a7cbc8 (patch) | |
| tree | ef070014db54d085284c56d28f825ea41e94f908 /guix-data-service/web/repository/controller.scm | |
| parent | aee903bc8c49bef078aa8ec72a297eed8052088a (diff) | |
| download | data-service-5e2bc7c6e920e1542ab8fde39dbddca443a7cbc8.tar data-service-5e2bc7c6e920e1542ab8fde39dbddca443a7cbc8.tar.gz | |
Fix various warnings relating to the controller refactoring
Diffstat (limited to 'guix-data-service/web/repository/controller.scm')
| -rw-r--r-- | guix-data-service/web/repository/controller.scm | 6 |
1 files changed, 6 insertions, 0 deletions
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) |