diff options
| author |  Ian Lynagh <igloo@earth.li> | 2007-04-03 19:52:37 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-04-03 19:52:37 +0000 |
| commit | 77917bd30b9ff5677745de40191d81d7381be638 (patch) | |
| tree | 65b5b94339992d142a6c9afbe8baa024c2ee78a3 /System/Posix/IO.hsc | |
| parent | 6df8834b630b7feb443669639a7b222ef38f0608 (diff) | |
Follow type changes in base
(of the dubiously exported c_access and c_fcntl_write)
Diffstat (limited to 'System/Posix/IO.hsc')
| -rw-r--r-- | System/Posix/IO.hsc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/System/Posix/IO.hsc b/System/Posix/IO.hsc index 662cf5d..408341e 100644 --- a/System/Posix/IO.hsc +++ b/System/Posix/IO.hsc @@ -264,7 +264,8 @@ setFdOption (Fd fd) opt val = do r <- throwErrnoIfMinus1 "setFdOption" (c_fcntl_read fd getflag) let r' | val = r .|. opt_val | otherwise = r .&. (complement opt_val) - throwErrnoIfMinus1_ "setFdOption" (c_fcntl_write fd setflag r') + throwErrnoIfMinus1_ "setFdOption" + (c_fcntl_write fd setflag (fromIntegral r')) where (getflag,setflag)= case opt of CloseOnExec -> ((#const F_GETFD),(#const F_SETFD)) |