Browse Source

Use postgres connection pooling for lisp frameworks (#5108)

Gordon Brown 5 years ago
parent
commit
be224cf51e

+ 1 - 1
frameworks/Lisp/ningle/ningle.ros

@@ -166,7 +166,7 @@ exec ros -Q -- $0 "$@"
     (apply #'woo:run
       (lambda (env)
         ;; preprocessing
-        (let ((res (postmodern:with-connection '("hello_world" "benchmarkdbuser" "benchmarkdbpass" "tfb-database")
+        (let ((res (postmodern:with-connection '("hello_world" "benchmarkdbuser" "benchmarkdbpass" "tfb-database" :pooled-p t)
                      (ningle.app::call *app* env))))
           ;; postprocessing
           res))

+ 1 - 1
frameworks/Lisp/ninglex/ninglex.ros

@@ -147,7 +147,7 @@ exec ros -Q -- $0 "$@"
     (apply #'woo:run
       (lambda (env)
         ;; preprocessing
-        (let ((res (postmodern:with-connection '("hello_world" "benchmarkdbuser" "benchmarkdbpass" "tfb-database")
+        (let ((res (postmodern:with-connection '("hello_world" "benchmarkdbuser" "benchmarkdbpass" "tfb-database" :pooled-p t)
                      (ningle.app::call *app* env))))
           ;; postprocessing
           res))

+ 1 - 1
frameworks/Lisp/woo/woo.ros

@@ -159,7 +159,7 @@ exec ros -Q -- $0 "$@"
     (apply #'woo:run
       (lambda (env)
         ;; preprocessing
-        (let ((res (postmodern:with-connection '("hello_world" "benchmarkdbuser" "benchmarkdbpass" "tfb-database")
+        (let ((res (postmodern:with-connection '("hello_world" "benchmarkdbuser" "benchmarkdbpass" "tfb-database" :pooled-p t)
                      (funcall 'handler env))))
           ;; postprocessing
           res))