5485 - promote SubX to top-level

1 files changed, 0 insertions, 28 deletions

diff --git a/http-server.mu b/http-server.mu
deleted file mode 100644
index 6bd172b3..00000000
--- a/http-server.mu
+++ /dev/null
@@ -1,28 +0,0 @@
-# example program: a single-request HTTP server
-#   listen for connections from clients on a server socket
-#   when a connection occurs, transfer it to a session socket
-#   read from it using channels
-#   write to it directly
-#
-# After running it, navigate to localhost:8080. Your browser should display
-# "SUCCESS!" and the server will terminate after one connection.
-
-def main [
-  local-scope
-  socket:num <- $open-server-socket 8080/port
-  $print [Mu socket creation returned ], socket, 10/newline
-  return-unless socket
-  session:num <- $accept socket
-  contents:&:source:char, sink:&:sink:char <- new-channel 30
-  sink <- start-running receive-from-socket session, sink
-  query:text <- drain contents
-  $print [Done reading from socket.], 10/newline
-  write-to-socket session, [HTTP/1.0 200 OK
-Content-type: text/plain
-
-SUCCESS!
-]
-  $print 10/newline, [Wrote to and closing socket...], 10/newline
-  session <- $close-socket session
-  socket <- $close-socket socket
-]