extra/furnace/mongodb/mongodb.factor

   1 USING: accessors http.server http.server.filters io.pools kernel
   2 mongodb.driver mongodb.connection namespaces ;
   3
   4 IN: furnace.mongodb
   5
   6 TUPLE: mdb-persistence < filter-responder pool ;
   7
   8 : <mdb-persistence> ( responder mdb -- responder' )
   9     <mdb-pool> mdb-persistence boa ;
  10
  11 M: mdb-persistence call-responder*
  12     dup pool>> [ mdb-connection set call-next-method ] with-pooled-connection ;