diff options
| author |  Simon Marlow <marlowsd@gmail.com> | 2009-02-03 10:02:54 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-02-03 10:02:54 +0000 |
| commit | 414744644cb19d2233a9c49ee1a6bc707a9da765 (patch) | |
| tree | c5627308ae1d21c430c86b1a2cdf778342b2a79d | |
| parent | 91a9b62f812faa5ae09654e860d1b31363098ec5 (diff) | |
fix warnings
| -rw-r--r-- | System/Posix/SharedMem.hsc | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/System/Posix/SharedMem.hsc b/System/Posix/SharedMem.hsc index 4000acd..863b740 100644 --- a/System/Posix/SharedMem.hsc +++ b/System/Posix/SharedMem.hsc @@ -45,19 +45,19 @@ data ShmOpenFlags = ShmOpenFlags shmOpen :: String -> ShmOpenFlags -> FileMode -> IO Fd #ifdef HAVE_SHM_OPEN shmOpen name flags mode = - do cflags <- return 0 - cflags <- return $ cflags .|. (if shmReadWrite flags - then #{const O_RDWR} - else #{const O_RDONLY}) - cflags <- return $ cflags .|. (if shmCreate flags then #{const O_CREAT} - else 0) - cflags <- return $ cflags .|. (if shmExclusive flags - then #{const O_EXCL} - else 0) - cflags <- return $ cflags .|. (if shmTrunc flags then #{const O_TRUNC} - else 0) - withCAString name (shmOpen' cflags mode) - where shmOpen' cflags mode cname = + do cflags0 <- return 0 + cflags1 <- return $ cflags0 .|. (if shmReadWrite flags + then #{const O_RDWR} + else #{const O_RDONLY}) + cflags2 <- return $ cflags1 .|. (if shmCreate flags then #{const O_CREAT} + else 0) + cflags3 <- return $ cflags2 .|. (if shmExclusive flags + then #{const O_EXCL} + else 0) + cflags4 <- return $ cflags3 .|. (if shmTrunc flags then #{const O_TRUNC} + else 0) + withCAString name (shmOpen' cflags4) + where shmOpen' cflags cname = do fd <- throwErrnoIfMinus1 "shmOpen" $ shm_open cname cflags mode return $ Fd fd |