From 1dbab91ccc297c7b3ec74669298cae958d128591 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 15 Nov 2017 07:12:26 -0500
Subject: [PATCH] Content-Type header

---
 examples/netstack/incremental-highlevel/main.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/examples/netstack/incremental-highlevel/main.rkt b/examples/netstack/incremental-highlevel/main.rkt
index af242b4..b2d6c0c 100644
--- 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"