From 014567f61b7c86fdccafd7cfe0766e763a2ae74e Mon Sep 17 00:00:00 2001
From: darkf <lw9k123@gmail.com>
Date: Fri, 22 Nov 2013 01:09:55 -0800
Subject: [PATCH] Interp: set sockets unbuffered by default

---
 Interp.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Interp.hs b/Interp.hs
index a4189c6..c9c5fe6 100644
--- a/Interp.hs
+++ b/Interp.hs
@@ -157,6 +157,7 @@ _sockopen (TupleV [StrV host, IntV port]) = do
 		sock <- SO.socket (SO.addrFamily addr) SO.Stream SO.defaultProtocol
 		SO.connect sock (SO.addrAddress addr)
 		handle <- SO.socketToHandle sock ReadWriteMode
+		hSetBuffering handle NoBuffering
 		return handle
 	put (handles ++ [handle], env)
 	return . StreamV $ length handles