[project @ 2005-08-10 10:07:22 by simonmar]

Fix queryFdOption

1 files changed, 1 insertions, 1 deletions

diff --git a/System/Posix/IO.hsc b/System/Posix/IO.hsc
index ca1113b..f859b33 100644
--- a/System/Posix/IO.hsc
+++ b/System/Posix/IO.hsc
@@ -230,7 +230,7 @@ fdOption2Int SynchronousWrites = (#const O_SYNC)
 queryFdOption :: Fd -> FdOption -> IO Bool
 queryFdOption (Fd fd) opt = do
   r <- throwErrnoIfMinus1 "queryFdOption" (c_fcntl_read fd flag)
-  return (testBit r (fromIntegral (fdOption2Int opt)))
+  return ((r .&. fdOption2Int opt) /= 0)
  where
   flag    = case opt of
 	      CloseOnExec       -> (#const F_GETFD)