|
1 | 1 | {-# LANGUAGE Safe #-}
|
| 2 | +{-# LANGUAGE CApiFFI #-} |
2 | 3 | -----------------------------------------------------------------------------
|
3 | 4 | -- |
|
4 | 5 | -- Module : System.Posix.Semaphore
|
@@ -110,18 +111,18 @@ semGetValue_ sem ptr = do throwErrnoIfMinus1Retry_ "semGetValue" $
|
110 | 111 | cint <- peek ptr
|
111 | 112 | return $ fromEnum cint
|
112 | 113 |
|
113 |
| -foreign import ccall safe "sem_open" |
| 114 | +foreign import capi safe "semaphore.h sem_open" |
114 | 115 | sem_open :: CString -> CInt -> CMode -> CUInt -> IO (Ptr ())
|
115 |
| -foreign import ccall safe "sem_close" |
| 116 | +foreign import capi safe "semaphore.h sem_close" |
116 | 117 | sem_close :: Ptr () -> IO CInt
|
117 |
| -foreign import ccall safe "sem_unlink" |
| 118 | +foreign import capi safe "semaphore.h sem_unlink" |
118 | 119 | sem_unlink :: CString -> IO CInt
|
119 | 120 |
|
120 |
| -foreign import ccall safe "sem_wait" |
| 121 | +foreign import capi safe "semaphore.h sem_wait" |
121 | 122 | sem_wait :: Ptr () -> IO CInt
|
122 |
| -foreign import ccall safe "sem_trywait" |
| 123 | +foreign import capi safe "semaphore.h sem_trywait" |
123 | 124 | sem_trywait :: Ptr () -> IO CInt
|
124 |
| -foreign import ccall safe "sem_post" |
| 125 | +foreign import capi safe "semaphore.h sem_post" |
125 | 126 | sem_post :: Ptr () -> IO CInt
|
126 |
| -foreign import ccall safe "sem_getvalue" |
| 127 | +foreign import capi safe "semaphore.h sem_getvalue" |
127 | 128 | sem_getvalue :: Ptr () -> Ptr CInt -> IO Int
|
0 commit comments