Use numeric ids for git repositories

guix-data-service/model/git-repository.scm

@@ -11,10 +11,17 @@
             guix-revisions-and-jobs-for-git-repository))
 
 (define (all-git-repositories conn)
-  (exec-query
+  (map
-   conn
+   (match-lambda
-   (string-append
+     ((id label url cgit-base-url)
-    "SELECT id, label, url, cgit_url_base FROM git_repositories ORDER BY id ASC")))
+      (list (string->number id)
+            label
+            url
+            cgit-base-url)))
+   (exec-query
+    conn
+    (string-append
+     "SELECT id, label, url, cgit_url_base FROM git_repositories ORDER BY id ASC"))))
 
 (define (select-git-repository conn id)
   (match (exec-query

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

guix-data-service/web/view/html.scm

@@ -916,7 +916,7 @@
            `(tr
              (td
               (a (@ (href ,(string-append
-                            "/repository/" git-repository-id
+                            "/repository/" (number->string git-repository-id)
                             "/branch/" name)))
                  ,name))
              (td ,date)