From a94ccf62b388fed2baf8ea94943cdf56b505f371 Mon Sep 17 00:00:00 2001
From: "hyunghwan.chung" <hyunghwan.chung@c9d47f8d-4fed-4a2f-8cad-691f5fbe3904>
Date: Thu, 10 May 2018 16:16:03 +0000
Subject: [PATCH] added a few lines to Http.moo

---
 moo/kernel/Http.moo | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/moo/kernel/Http.moo b/moo/kernel/Http.moo
index 5982594..da691fd 100644
--- a/moo/kernel/Http.moo
+++ b/moo/kernel/Http.moo
@@ -12,9 +12,12 @@ class HttpSocket(Socket)
 
 class HttpServerSocket(ServerSocket)
 {
+	var connections.
+
 	method initialize
 	{
 		super initialize.
+	###	self.connections := LinkedList new.
 	}
 
 	method onSocketAccepted: clisck from: cliaddr
@@ -22,12 +25,13 @@ class HttpServerSocket(ServerSocket)
 		'CLIENT accepted ..............' dump.
 clisck dump.
 		cliaddr dump.
-	##	clisck close.
+	###	self.connections addLast: clisck.
 	}
 
 	method acceptedSocketClass
 	{
-		^HttpSocket
+		##^if (self currentAddress port == 80) { HttpSocket } else { HttpSocket }.
+		^HttpSocket.
 	}
 }