http.server.responses: adding <html-content>, use it.

[factor.git] / basis / http / server / responses / responses-docs.factor

diff --git a/basis/http/server/responses/responses-docs.factor b/basis/http/server/responses/responses-docs.factor
index 3ca276695a614efc64a8a82c66edc319c08d5a01..d4bbd4c986289a86f8dcc2e3b1cd2747958d6a5d 100644 (file)
--- a/basis/http/server/responses/responses-docs.factor
+++ b/basis/http/server/responses/responses-docs.factor
@@ -8,7 +8,13 @@ HELP: <content>
 
 HELP: <text-content>
 { $values { "body" "a response body" } { "response" response } }
-{ $description "Creates a plain text response." } ;
+{ $description "Creates a response with content type " { $snippet "text/plain" } "." } ;
+
+HELP: <html-content>
+{ $values { "body" "a response body" } { "response" response } }
+{ $description "Creates a response with content type " { $snippet "text/html" } "." } ;
+
+{ <content> <text-content> <html-content> } related-words
 
 HELP: <trivial-response>
 { $values { "code" integer } { "message" string } { "response" response } }
@@ -26,9 +32,8 @@ ARTICLE: "http.server.responses" "Canned HTTP responses"
 { $subsections
     <content>
     <text-content>
+    <html-content>
 }
-
-{ $vocab-link "furnace.json" } " implements " { $link <json-content> } "." $nl
 "For errors:"
 { $subsections
     <304>