From b301e0c0e6b54dceecbe4ee1ef8f610411015c30 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sat, 27 Jan 2018 00:28:51 -0800 Subject: 4200 Forgot to set up exuberant_ctags_rc as .ctags on new laptop. --- html/http-server.mu.html | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'html/http-server.mu.html') diff --git a/html/http-server.mu.html b/html/http-server.mu.html index 030fcbbc..f991bbf4 100644 --- a/html/http-server.mu.html +++ b/html/http-server.mu.html @@ -65,17 +65,17 @@ if ('onhashchange' in window) { 7 # After running it, navigate to localhost:8080. Your browser should display 8 # "SUCCESS!" and the server will terminate after one connection. 9 -10 def main [ +10 def main [ 11 local-scope 12 socket:num <- $open-server-socket 8080/port 13 $print [Mu socket creation returned ], socket, 10/newline 14 return-unless socket 15 session:num <- $accept socket -16 contents:&:source:char, sink:&:sink:char <- new-channel 30 -17 sink <- start-running receive-from-socket session, sink -18 query:text <- drain contents +16 contents:&:source:char, sink:&:sink:char <- new-channel 30 +17 sink <- start-running receive-from-socket session, sink +18 query:text <- drain contents 19 $print [Done reading from socket.], 10/newline -20 write-to-socket session, [HTTP/1.0 200 OK +20 write-to-socket session, [HTTP/1.0 200 OK 21 Content-type: text/plain 22 23 SUCCESS! -- cgit 1.4.1-2-gfad0