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

[factor.git] / basis / tools / deploy / deploy-tests.factor

diff --git a/basis/tools/deploy/deploy-tests.factor b/basis/tools/deploy/deploy-tests.factor
index e71b4a8a39269e8cf1aaf0ad1e335e0d548b3a7e..95e64f3b965343bdbfa8a311770af54aaae7dfc0 100644 (file)
--- a/basis/tools/deploy/deploy-tests.factor
+++ b/basis/tools/deploy/deploy-tests.factor
@@ -71,7 +71,7 @@ http.server.responses http.server.static io.servers ;
 SINGLETON: quit-responder
 
 M: quit-responder call-responder*
-    2drop stop-this-server "Goodbye" "text/html" <content> ;
+    2drop stop-this-server "Goodbye" <html-content> ;
 
 : add-quot-responder ( responder -- responder )
     quit-responder "quit" add-responder ;