1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors db db.pools destructors http.server
4 http.server.filters io.pools kernel namespaces ;
7 TUPLE: db-persistence < filter-responder pool disposed ;
9 : <db-persistence> ( responder db -- responder' )
10 <db-pool> f db-persistence boa ;
12 M: db-persistence call-responder*
14 pool>> [ acquire-connection ] keep
15 [ return-connection-later ] [ drop db-connection set ] 2bi
17 [ call-next-method ] bi ;
19 M: db-persistence dispose* pool>> dispose ;