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

[factor.git] / basis / http / server / static / static.factor

diff --git a/basis/http/server/static/static.factor b/basis/http/server/static/static.factor
index 294c3d7a0d1de65e27e711bf91673098cb72d0ed..01b085e1aeaa58170663b2b32ed96a644392c57b 100644 (file)
--- a/basis/http/server/static/static.factor
+++ b/basis/http/server/static/static.factor
@@ -71,7 +71,7 @@ TUPLE: file-responder root hook special index-names allow-listings ;
 \r
 : list-directory ( directory -- response )\r
     file-responder get allow-listings>> [\r
-        directory>html "text/html" <content>\r
+        directory>html <html-content>\r
     ] [\r
         drop <403>\r
     ] if ;\r
@@ -105,7 +105,7 @@ M: file-responder call-responder* ( path responder -- response )
     index-names>> adjoin ;\r
 \r
 : serve-fhtml ( path -- response )\r
-    <fhtml> "text/html" <content> ;\r
+    <fhtml> <html-content> ;\r
 \r
 : enable-fhtml ( responder -- responder )\r
     [ serve-fhtml ] "application/x-factor-server-page" pick special>> set-at\r