f <watching-site> select-tuples
[ site-id>> site new swap >>site-id select-tuple ] map ;
-: site-watcher-path ( -- path ) "site-watcher.db" temp-file ; inline
+: site-watcher-path ( -- path ) "site-watcher.db" cache-file ; inline
: with-site-watcher-db ( quot -- )
site-watcher-path <sqlite-db> swap with-db ; inline