Commit 18009e66 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix to previous

parent b0aee192
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment