add processGroup001/processGroup002
[packages/unix.git] / tests / queryfdoption01.hs
1 import System.Posix.IO
2 import System.IO
3
4 showNBR = do
5 v <- System.Posix.IO.queryFdOption 0 System.Posix.IO.NonBlockingRead
6 putStr $ "NonBlockingRead = " ++ (show v) ++ "\n"
7
8 main = do
9 showNBR
10 System.Posix.IO.setFdOption 0 System.Posix.IO.NonBlockingRead True
11 showNBR