remove putStrLn

softmechanics · Mar 14, 2011 · 6cfc88a · 6cfc88a
1 parent 44b5d84
commit 6cfc88a
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/Network/Wai/Handler/Warp.hs b/Network/Wai/Handler/Warp.hs
@@ -151,7 +151,6 @@ serveConnections' set app socket = do
     tm <- T.initialize $ settingsTimeout set * 1000000
     forever $ do
         (conn, sa) <- accept socket
-        putStrLn "Accepted a connection"
         _ <- forkIO $ do
             th <- T.registerKillThread tm
             serveConnection th onE port app conn sa