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

[factor.git] / basis / http / server / responses / responses.factor
diff --git a/basis/http/server/responses/responses.factor b/basis/http/server/responses/responses.factor

index db7f9618b3d1cedf59e69d1d24a3454a8dd85604..9bade222ff40ed03e79b4eb8cc482cf49d9a08eb 100644 (file)
--- a/basis/http/server/responses/responses.factor
+++ b/basis/http/server/responses/responses.factor
@@ -14,7 +14,10 @@ IN: http.server.responses
  
  : <text-content> ( body -- response )
      "text/plain" <content> ;
-    
+
+: <html-content> ( body -- response )
+    "text/html" <content> ;
+
  : trivial-response-body ( code message -- )
      <XML
          <html>
@@ -26,7 +29,7 @@ IN: http.server.responses
  
  : <trivial-response> ( code message -- response )
      2dup [ trivial-response-body ] with-string-writer
-    "text/html" <content>
+    <html-content>
          swap >>message
          swap >>code ;