From: simonmar <unknown>
Date: Wed, 10 Apr 2002 15:57:16 +0000 (+0000)
Subject: [project @ 2002-04-10 15:57:16 by simonmar]
X-Git-Tag: nhc98-1-18-release~1064
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bbfd33a95258eb07d88722f1a9ea1dc840f07936;p=ghc-base.git

[project @ 2002-04-10 15:57:16 by simonmar]
Update to newer FFI definition style
---

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