Content-Type header

2017-11-15 07:12:26 -05:00 · 2017-11-15 07:12:26 -05:00 · 1dbab91ccc
parent 53e26b08a1
commit 1dbab91ccc
1 changed files with 3 additions and 1 deletions
--- a/examples/netstack/incremental-highlevel/main.rkt
+++ b/examples/netstack/incremental-highlevel/main.rkt
@ -75,7 +75,9 @@
                (define response
                  (string->bytes/utf-8
                   (format (string-append
-                            "HTTP/1.0 200 OK\r\n\r\n"
+                            "HTTP/1.0 200 OK\r\n"
+                            "Content-Type: text/html\r\n"
+                            "\r\n"
                            "<h1>Hello world from syndicate-netstack!</h1>\n"
                            "<p>This is running on syndicate's own\n"
                            "<a href='https://github.com/tonyg/syndicate/'>\n"