added mongodb connection pool responder

db4
Sascha Matzke 2010-01-07 08:31:32 +01:00
parent fccaee0fd4
commit e7b797af08
1 changed files with 12 additions and 0 deletions

View File

@ -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 ;