diff options
Diffstat (limited to 'guix-data-service/web/repository/controller.scm')
| -rw-r--r-- | guix-data-service/web/repository/controller.scm | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm index 88739d5..0f8a5e7 100644 --- a/guix-data-service/web/repository/controller.scm +++ b/guix-data-service/web/repository/controller.scm @@ -295,11 +295,7 @@ target package-name)) (build-server-urls - (group-to-alist - (match-lambda - ((id url lookup-all-derivations) - (cons id url))) - (select-build-servers conn)))) + (select-build-server-urls-by-id conn))) (case (most-appropriate-mime-type '(application/json text/html) mime-types) @@ -364,11 +360,7 @@ package-name output-name)) (build-server-urls - (group-to-alist - (match-lambda - ((id url lookup-all-derivations) - (cons id url))) - (select-build-servers conn)))) + (select-build-server-urls-by-id conn))) (case (most-appropriate-mime-type '(application/json text/html) mime-types) |