webapps.help: fixing location of generated html docs.

db4
John Benediktsson 2012-06-18 12:32:44 -07:00
parent 1778b1debd
commit 4c888b3548
1 changed files with 3 additions and 3 deletions

View File

@ -4,8 +4,8 @@ USING: accessors db.sqlite furnace.actions furnace.alloy
furnace.redirection help.html help.topics html.components furnace.redirection help.html help.topics html.components
html.forms html.templates.chloe http.server html.forms html.templates.chloe http.server
http.server.dispatchers http.server.static io.directories http.server.dispatchers http.server.static io.directories
io.files kernel locals namespaces sequences unicode.categories io.files io.files.temp kernel locals namespaces sequences
urls ; unicode.categories urls ;
IN: webapps.help IN: webapps.help
TUPLE: help-webapp < dispatcher ; TUPLE: help-webapp < dispatcher ;
@ -45,7 +45,7 @@ M: result link-href href>> ;
"resource:basis/definitions/icons/" <static> "icons" add-responder ; "resource:basis/definitions/icons/" <static> "icons" add-responder ;
: run-help-webapp ( -- ) : run-help-webapp ( -- )
"resource:temp/docs" <help-webapp> "docs" cache-file <help-webapp>
main-responder set-global main-responder set-global
8080 httpd drop ; 8080 httpd drop ;