diff options
Diffstat (limited to 'guix-data-service/web/server.scm')
-rw-r--r-- | guix-data-service/web/server.scm | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/guix-data-service/web/server.scm b/guix-data-service/web/server.scm index f390da1..8072dfe 100644 --- a/guix-data-service/web/server.scm +++ b/guix-data-service/web/server.scm @@ -23,22 +23,18 @@ #:use-module (web request) #:use-module (web uri) #:use-module (fibers web server) - #:use-module (guix-data-service database) #:use-module (guix-data-service web controller) #:use-module (guix-data-service web util) #:export (start-guix-data-service-web-server)) (define (run-controller controller request body) - (with-postgresql-connection - (lambda (conn) - (let-values (((request-components mime-types) - (request->path-components-and-mime-type request))) - (controller request - (cons (request-method request) - request-components) - mime-types - body - conn))))) + (let-values (((request-components mime-types) + (request->path-components-and-mime-type request))) + (controller request + (cons (request-method request) + request-components) + mime-types + body))) (define (handler request body controller) (format #t "~a ~a\n" |