From bbfd33a95258eb07d88722f1a9ea1dc840f07936 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 10 Apr 2002 15:57:16 +0000
Subject: [PATCH] [project @ 2002-04-10 15:57:16 by simonmar] Update to newer
 FFI definition style

---
 Control/Concurrent.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Control/Concurrent.hs b/Control/Concurrent.hs
index db570bf..f3a426e 100644
--- a/Control/Concurrent.hs
+++ b/Control/Concurrent.hs
@@ -8,7 +8,7 @@
 -- Stability   :  experimental
 -- Portability :  non-portable
 --
--- $Id: Concurrent.hs,v 1.3 2001/12/21 15:07:21 simonmar Exp $
+-- $Id: Concurrent.hs,v 1.4 2002/04/10 15:57:16 simonmar Exp $
 --
 -- A common interface to a collection of useful concurrency
 -- abstractions.
@@ -75,7 +75,7 @@ import Control.Concurrent.SampleVar
 -- cmp_thread in the RTS.
 
 #ifdef __GLASGOW_HASKELL__
-foreign import ccall "cmp_thread" unsafe cmp_thread :: Addr# -> Addr# -> Int
+foreign import ccall unsafe "cmp_thread" cmp_thread :: Addr# -> Addr# -> Int
 -- Returns -1, 0, 1
 
 cmpThread :: ThreadId -> ThreadId -> Ordering
-- 
1.7.10.4