[project @ 2005-10-21 13:10:48 by simonmar]

cmp_thread returns CInt, not Int

diff --git a/Control/Concurrent.hs b/Control/Concurrent.hs
index 6f183cb..6fddd7a 100644 (file)
--- a/Control/Concurrent.hs
+++ b/Control/Concurrent.hs
@@ -178,7 +178,7 @@ functions blocks only the thread making the call.
 id2TSO :: ThreadId -> ThreadId#
 id2TSO (ThreadId t) = t
 
-foreign import ccall unsafe "cmp_thread" cmp_thread :: ThreadId# -> ThreadId# -> Int
+foreign import ccall unsafe "cmp_thread" cmp_thread :: ThreadId# -> ThreadId# -> CInt
 -- Returns -1, 0, 1
 
 cmpThread :: ThreadId -> ThreadId -> Ordering