From ece2eabc39ad424823437fe718bfbb27808aed7d Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 19 Mar 2009 16:48:46 -0500
Subject: [PATCH] call init-db and run-site-watcher from webapps.site-watcher

---
 extra/webapps/site-watcher/site-watcher.factor | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/extra/webapps/site-watcher/site-watcher.factor b/extra/webapps/site-watcher/site-watcher.factor
index af07ccebbb..e220cff1d4 100644
--- a/extra/webapps/site-watcher/site-watcher.factor
+++ b/extra/webapps/site-watcher/site-watcher.factor
@@ -122,10 +122,12 @@ CONSTANT: site-list-url URL" $site-watcher-app/"
 site-watcher-db <alloy>
 main-responder set-global
 
-: start-site-watcher ( -- )
-    <site-watcher-server> start-server ;
-
 : init-db ( -- )
     site-watcher-db [
         { site account watching-site } [ ensure-table ] each
-    ] with-db ;
\ No newline at end of file
+    ] with-db ;
+
+: start-site-watcher ( -- )
+    init-db
+    site-watcher-db run-site-watcher
+    <site-watcher-server> start-server ;