소스 검색

Use postgres connection pooling for lisp frameworks (#5108)

Gordon Brown 6 년 전
부모
커밋
be224cf51e
3개의 변경된 파일3개의 추가작업 그리고 3개의 파일을 삭제
  1. 1 1
      frameworks/Lisp/ningle/ningle.ros
  2. 1 1
      frameworks/Lisp/ninglex/ninglex.ros
  3. 1 1
      frameworks/Lisp/woo/woo.ros

+ 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))