@@ -38,7 +38,6 @@ import Network.Socket
3838import qualified Network.Socket.ByteString as Sock
3939import Control.Exception (bracket, finally, Exception, SomeException, catch)
4040import Control.Concurrent (forkIO)
41−import Control.Monad (unless, when)
4241import Data.Maybe (fromMaybe)
4342
4443import Data.Typeable (Typeable)
@@ -88,7 +87,7 @@ serveConnection port app conn remoteHost' = do
8887 (enumeratee, env) <- parseRequest port remoteHost'
8988 res <- E.joinI $ enumeratee $$ app env
9089 keepAlive <- liftIO $ sendResponse env (httpVersion env) conn res
91− when keepAlive serveConnection'
90+ if keepAlive then serveConnection' else return ()
9291
9392parseRequest :: Port -> SockAddr -> E.Iteratee S.ByteString IO (E.Enumeratee ByteString ByteString IO a, Request)
9493parseRequest port remoteHost' = do