added mongodb connection pool responder
parent
fccaee0fd4
commit
e7b797af08
|
@ -0,0 +1,12 @@
|
|||
USING: accessors http.server http.server.filters io.pools kernel
|
||||
mongodb.driver mongodb.connection namespaces unix destructors continuations ;
|
||||
|
||||
IN: furnace.mongodb
|
||||
|
||||
TUPLE: mdb-persistence < filter-responder pool ;
|
||||
|
||||
: <mdb-persistence> ( responder mdb -- responder' )
|
||||
<mdb-pool> mdb-persistence boa ;
|
||||
|
||||
M: mdb-persistence call-responder*
|
||||
dup pool>> [ mdb-connection set call-next-method ] with-pooled-connection ;
|
Loading…
Reference in New Issue