From 87997cc0d2a9b570167471cecb52e8d9296a82f5 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 18 Mar 2009 18:06:00 -0500
Subject: [PATCH] slightly bettar

---
 extra/site-watcher/db/db.factor | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/extra/site-watcher/db/db.factor b/extra/site-watcher/db/db.factor
index 3798b1ae94..6a861ef747 100644
--- 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 ;