diff options
Diffstat (limited to 'guix-data-service/web/repository/controller.scm')
| -rw-r--r-- | guix-data-service/web/repository/controller.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm index e1a9b9c..b77ca1f 100644 --- a/guix-data-service/web/repository/controller.scm +++ b/guix-data-service/web/repository/controller.scm @@ -58,7 +58,7 @@ `((repositories . ,(list->vector (map (match-lambda - ((id label url cgit-base-url) + ((id label url cgit-base-url _) `((id . ,id) (label . ,label) (url . ,url)))) @@ -70,7 +70,7 @@ (('GET "repository" id) (match (with-resource-from-pool (connection-pool) conn (select-git-repository conn id)) - ((label url cgit-url-base fetch-with-authentication?) + ((label url cgit-url-base fetch-with-authentication? poll-interval) (letpar& ((branches (with-resource-from-pool (connection-pool) conn (all-branches-with-most-recent-commit |