@@ -29,7 +29,7 @@ import Control.Monad (void)
2929import Data.Hashable (hash)
3030import Data.IORef (IORef, newIORef, readIORef, writeIORef, atomicModifyIORef)
3131import Network.Wai.Handler.Warp.MultiMap
32−import System.Posix.IO (openFd, defaultFileFlags, OpenMode(ReadOnly), closeFd)
32+import System.Posix.IO (openFd, OpenFileFlags(..), defaultFileFlags, OpenMode(ReadOnly), closeFd)
3333import System.Posix.Types (Fd)
3434
3535----------------------------------------------------------------
@@ -58,7 +58,7 @@ data FdEntry = FdEntry !FilePath !Fd !MutableStatus
5858
5959newFdEntry :: FilePath -> IO FdEntry
6060newFdEntry path = FdEntry path
61− <$> openFd path ReadOnly Nothing defaultFileFlags
61+ <$> openFd path ReadOnly Nothing defaultFileFlags{nonBlock=True}
6262 <*> newActiveStatus
6363
6464----------------------------------------------------------------