slightly bettar

diff --git a/extra/site-watcher/db/db.factor b/extra/site-watcher/db/db.factor
index 3798b1ae94951b20c95840ec9f1cdec248caab08..6a861ef747a15d0a893c7235c4690bfb2ee6bd30 100644 (file)
--- a/extra/site-watcher/db/db.factor
+++ b/extra/site-watcher/db/db.factor
@@ -44,6 +44,10 @@ watching-site "WATCHING_SITE" {
     { "site-id" "SITE_ID" INTEGER +user-assigned-id+ }
 } define-persistent
 
+TUPLE: reporting-site email url up? changed? last-up? error last-error ;
+
+<PRIVATE
+
 : set-notify-site-watchers ( site new-up? -- site )
     [ over up?>> = [ t >>changed? ] unless ] keep >>up? ;
 
@@ -60,8 +64,6 @@ watching-site "WATCHING_SITE" {
     now >>last-error
     update-tuple ;
 
-TUPLE: reporting-site email url up? changed? last-up? error last-error ;
-
 : sites-to-report ( -- seq )
     "select account.email, site.url, site.up, site.changed, site.last_up, site.error, site.last_error from account, site, watching_site where account.account_id = watching_site.account_id and site.site_id = watching_site.site_id and site.changed = '1'" sql-query 
     [ [ reporting-site boa ] input<sequence ] map
@@ -80,6 +82,8 @@ TUPLE: reporting-site email url up? changed? last-up? error last-error ;
     [ <account> select-tuple account-id>> ]
     [ insert-site site-id>> ] bi* ;
 
+PRIVATE>
+
 : watch-site ( email url -- )
     select-account/site <watching-site> insert-tuple ;