blob: 46833c105fd97d850371d487da6c7d4f1222429d (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
import System.Posix.IO
import System.IO
showNBR = do
v <- System.Posix.IO.queryFdOption 0 System.Posix.IO.NonBlockingRead
putStr $ "NonBlockingRead = " ++ (show v) ++ "\n"
main = do
showNBR
System.Posix.IO.setFdOption 0 System.Posix.IO.NonBlockingRead True
showNBR
|