From f03c9c05494997d4d1d64594fd357170f45d2da2 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 16 Oct 2016 11:11:54 -0700 Subject: 3507 --- http-server.mu | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'http-server.mu') diff --git a/http-server.mu b/http-server.mu index c5865fc4..c415b094 100644 --- a/http-server.mu +++ b/http-server.mu @@ -14,7 +14,7 @@ def main [ return-unless socket session:num <- $accept socket contents:&:source:char, sink:&:sink:char <- new-channel 30 - sink <- start-running transmit-from-socket session, sink + sink <- start-running receive-from-socket session, sink buf:&:buffer <- new-buffer 30 { c:char, done?:bool, contents <- read contents @@ -50,7 +50,7 @@ def write-to-socket session-socket:num, s:text [ } ] -def transmit-from-socket session:num, sink:&:sink:char -> sink:&:sink:char [ +def receive-from-socket session:num, sink:&:sink:char -> sink:&:sink:char [ local-scope load-ingredients { -- cgit 1.4.1-2-gfad0