webapps: use wait-for-server to allow MAIN: to work.

[factor.git] / extra / webapps / help / help.factor

diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor
index 8101daa50fc98d899ca363cde74502a909887249..cbd1d189729208c7172cb2d3184f99ebc2baeca1 100644 (file)
--- a/extra/webapps/help/help.factor
+++ b/extra/webapps/help/help.factor
@@ -3,7 +3,7 @@
 USING: accessors assocs furnace.actions furnace.redirection
 help.html help.topics html.components html.forms http.server
 http.server.dispatchers http.server.static io.directories
-io.files.temp kernel locals namespaces sequences
+io.files.temp io.servers kernel locals namespaces sequences
 unicode urls ;
 IN: webapps.help
 
@@ -44,6 +44,6 @@ TUPLE: help-webapp < dispatcher ;
 : run-help-webapp ( -- )
     "docs" cache-file <help-webapp>
         main-responder set-global
-    8080 httpd drop ;
+    8080 httpd wait-for-server ;
 
 MAIN: run-help-webapp