remove dead code
authorSimon Marlow <marlowsd@gmail.com>
Tue, 8 Sep 2009 14:46:27 +0000 (14:46 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Tue, 8 Sep 2009 14:46:27 +0000 (14:46 +0000)
System/Posix/Semaphore.hsc

index a031b00..a9d59df 100644 (file)
@@ -111,9 +111,6 @@ semGetValue_ sem ptr = do throwErrnoIfMinus1Retry_ "semGetValue" $
                           cint <- peek ptr
                           return $ fromEnum cint
 
-foreign import ccall safe "wrapper"
-        mkCallback :: (Ptr () -> IO ()) -> IO (FunPtr (Ptr () -> IO ()))
-        
 foreign import ccall safe "sem_open"
         sem_open :: CString -> CInt -> CMode -> CUInt -> IO (Ptr ())
 foreign import ccall safe "sem_close"