Better page :-)
This commit is contained in:
parent
50fc02f899
commit
b98e0bedb8
7
main.rkt
7
main.rkt
|
@ -99,7 +99,12 @@
|
||||||
(list
|
(list
|
||||||
(send #:meta-level 1
|
(send #:meta-level 1
|
||||||
(tcp-channel us them
|
(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)
|
(spawn (lambda (e s)
|
||||||
(match e
|
(match e
|
||||||
[(routing-update g) (transition s (quit))]
|
[(routing-update g) (transition s (quit))]
|
||||||
|
|
Loading…
Reference in New Issue