aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service/web/controller.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-09-05 16:40:39 +0200
committerChristopher Baines <mail@cbaines.net>2019-09-05 16:40:39 +0200
commitfe8102e1dfbc6dd83cc4ad03e2869a967750ba4f (patch)
tree589c70335c67867098d91e8ba85f6344ecec43e6 /guix-data-service/web/controller.scm
parent38adedcedef44436e7510576c8a8804cd75b7e87 (diff)
downloaddata-service-fe8102e1dfbc6dd83cc4ad03e2869a967750ba4f.tar
data-service-fe8102e1dfbc6dd83cc4ad03e2869a967750ba4f.tar.gz
Use numeric ids for git repositories
Diffstat (limited to 'guix-data-service/web/controller.scm')
-rw-r--r--guix-data-service/web/controller.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm
index 85c2b6a..038af58 100644
--- a/guix-data-service/web/controller.scm
+++ b/guix-data-service/web/controller.scm
@@ -829,7 +829,8 @@
(view-git-repository
id
label url cgit-url-base
- (all-branches-with-most-recent-commit conn id))))
+ (all-branches-with-most-recent-commit conn
+ (string->number id)))))
(#f
(render-html
#:sxml (general-not-found
@@ -853,7 +854,7 @@
parsed-query-parameters
(most-recent-commits-for-branch
conn
- repository-id
+ (string->number repository-id)
branch-name
#:limit (assq-ref parsed-query-parameters 'limit_results)
#:after-date (assq-ref parsed-query-parameters