diff options
Diffstat (limited to 'tests/queryfdoption01.hs')
-rw-r--r-- | tests/queryfdoption01.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/queryfdoption01.hs b/tests/queryfdoption01.hs new file mode 100644 index 0000000..46833c1 --- /dev/null +++ b/tests/queryfdoption01.hs @@ -0,0 +1,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 |