factor: trim using lists

[factor.git] / extra / site-watcher / db / db.factor

diff --git a/extra/site-watcher/db/db.factor b/extra/site-watcher/db/db.factor
index 003b6bb58bd295df1eb142cdf0dd8b46b8cd3473..120f64b3fbc8cc4966ed49deaefde0f49d230c96 100644 (file)
--- a/extra/site-watcher/db/db.factor
+++ b/extra/site-watcher/db/db.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors continuations db db.sqlite db.tuples db.types
-io.directories io.files.temp kernel io.streams.string calendar
-debugger combinators.smart sequences arrays ;
+USING: accessors calendar combinators.smart db db.sqlite
+db.tuples db.types debugger io.files.temp io.streams.string
+kernel sequences ;
 IN: site-watcher.db
 
 TUPLE: account account-name email twitter sms ;
@@ -106,7 +106,7 @@ TUPLE: reporting-site site-id email url up? changed? last-up? error last-error ;
     update-tuple ;
 
 : sites-to-report ( -- seq )
-    "select users.email, site.url, site.up, site.changed, site.last_up, site.error, site.last_error from users, site, watching_site where users.username = watching_site.account_name and site.site_id = watching_site.site_id and site.changed = '1'" sql-query 
+    "select users.email, site.url, site.up, site.changed, site.last_up, site.error, site.last_error from users, site, watching_site where users.username = watching_site.account_name and site.site_id = watching_site.site_id and site.changed = '1'" sql-query
     [ [ reporting-site boa ] input<sequence ] map
     "update site set changed = 0;" sql-command ;
 
@@ -124,7 +124,7 @@ TUPLE: reporting-site site-id email url up? changed? last-up? error last-error ;
     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