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

[factor.git] / extra / webapps / pastebin / pastebin.factor

diff --git a/extra/webapps/pastebin/pastebin.factor b/extra/webapps/pastebin/pastebin.factor
index bfceb65103e7918fb7e3c8b0efd08227701b4572..562639404adffcdf0cca6a0450afbfcbff1337db 100644 (file)
--- a/extra/webapps/pastebin/pastebin.factor
+++ b/extra/webapps/pastebin/pastebin.factor
@@ -143,7 +143,7 @@ M: annotation entity-url
 : <raw-paste-action> ( -- action )
     <action>
         [ validate-integer-id "id" value paste from-object ] >>init
-        [ "contents" value "text/plain" <content> ] >>display ;
+        [ "contents" value <text-content> ] >>display ;
 
 : <paste-feed-action> ( -- action )
     <feed-action>
@@ -227,7 +227,7 @@ M: annotation entity-url
 : <raw-annotation-action> ( -- action )
     <action>
         [ validate-integer-id "id" value lookup-annotation from-object ] >>init
-        [ "contents" value "text/plain" <content> ] >>display ;
+        [ "contents" value <text-content> ] >>display ;
 
 : <delete-annotation-action> ( -- action )
     <action>