2010-01-07 02:31:32 -05:00
|
|
|
USING: accessors http.server http.server.filters io.pools kernel
|
2010-01-16 05:46:00 -05:00
|
|
|
mongodb.driver mongodb.connection namespaces ;
|
2010-01-07 02:31:32 -05:00
|
|
|
|
|
|
|
|
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 ;
|
