aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service/web/repository
diff options
context:
space:
mode:
Diffstat (limited to 'guix-data-service/web/repository')
-rw-r--r--guix-data-service/web/repository/controller.scm6
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)