From b98e0bedb8cd7c532704f15f143d2df7fedbc3d8 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sat, 21 Jun 2014 12:08:40 -0400
Subject: [PATCH] Better page :-)

---
 main.rkt | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/main.rkt b/main.rkt
index 8e1e81f..846e082 100644
--- a/main.rkt
+++ b/main.rkt
@@ -99,7 +99,12 @@
     (list
      (send #:meta-level 1
 	   (tcp-channel us them
-			#"HTTP/1.0 200 OK\r\n\r\n<h1>Hello world from minimart-netstack!</h1>"))
+			(bytes-append
+			 #"HTTP/1.0 200 OK\r\n\r\n"
+			 #"<h1>Hello world from minimart-netstack!</h1>\n"
+			 #"<p>This is running on minimart's own\n"
+			 #"<a href='https://github.com/tonyg/minimart-netstack/'>\n"
+			 #"TCP/IP stack</a>.</p>")))
      (spawn (lambda (e s)
 	      (match e
 		[(routing-update g) (transition s (quit))]