From: simonmar <unknown>
Date: Fri, 21 Oct 2005 13:10:48 +0000 (+0000)
Subject: [project @ 2005-10-21 13:10:48 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~40
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=1465048106ca5454c68093519d5d7d1463830b68;p=ghc-base.git

[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
--- 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