call init-db and run-site-watcher from webapps.site-watcher

2009-03-19 16:48:46 -05:00 · 2009-03-19 16:48:46 -05:00 · ece2eabc39
parent e41a7bb6d6
commit ece2eabc39
1 changed files with 6 additions and 4 deletions
--- 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 ;
+    ] with-db ;
+
+: start-site-watcher ( -- )
+    init-db
+    site-watcher-db run-site-watcher
+    <site-watcher-server> start-server ;