fix to previous
authorSimon Marlow <simonmar@microsoft.com>
Thu, 23 Mar 2006 10:25:23 +0000 (10:25 +0000)
committerSimon Marlow <simonmar@microsoft.com>
Thu, 23 Mar 2006 10:25:23 +0000 (10:25 +0000)
testsuite/tests/ghc-regress/concurrent/should_run/conc036.hs

index eb1d7e2..b7730f5 100644 (file)
@@ -12,7 +12,7 @@ sleep n = sleepBlock (n*1000)
 foreign import stdcall unsafe "Sleep" sleepBlock :: Int -> IO ()
 #else
 sleep n = sleepBlock n
-foreign import unsafe "sleep" sleepBlock :: Int -> IO ()
+foreign import ccall unsafe "sleep" sleepBlock :: Int -> IO ()
 #endif
 
 main :: IO ()