diff options
Diffstat (limited to 'guix-data-service/web/package/controller.scm')
-rw-r--r-- | guix-data-service/web/package/controller.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/guix-data-service/web/package/controller.scm b/guix-data-service/web/package/controller.scm index 465c2a3..8dc6b0f 100644 --- a/guix-data-service/web/package/controller.scm +++ b/guix-data-service/web/package/controller.scm @@ -22,6 +22,7 @@ #:use-module (guix-data-service utils) #:use-module (guix-data-service database) #:use-module (guix-data-service web render) + #:use-module (guix-data-service web controller) #:use-module (guix-data-service web query-parameters) #:use-module (guix-data-service web util) #:use-module (guix-data-service model package) @@ -40,13 +41,12 @@ `((system ,parse-system #:default "x86_64-linux") (target ,parse-target #:default ""))))) (letpar& ((package-versions-with-branches - (with-thread-postgresql-connection - (lambda (conn) - (branches-by-package-version conn name - (assq-ref parsed-query-parameters - 'system) - (assq-ref parsed-query-parameters - 'target)))))) + (with-resource-from-pool (connection-pool) conn + (branches-by-package-version conn name + (assq-ref parsed-query-parameters + 'system) + (assq-ref parsed-query-parameters + 'target))))) (case (most-appropriate-mime-type '(application/json text/html) mime-types) |