From 1465048106ca5454c68093519d5d7d1463830b68 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 21 Oct 2005 13:10:48 +0000
Subject: [PATCH] [project @ 2005-10-21 13:10:48 by simonmar] cmp_thread
 returns CInt, not Int

---
 Control/Concurrent.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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