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) ...@@ -12,7 +12,7 @@ sleep n = sleepBlock (n*1000)
foreign import stdcall unsafe "Sleep" sleepBlock :: Int -> IO () foreign import stdcall unsafe "Sleep" sleepBlock :: Int -> IO ()
#else #else
sleep n = sleepBlock n sleep n = sleepBlock n
foreign import unsafe "sleep" sleepBlock :: Int -> IO () foreign import ccall unsafe "sleep" sleepBlock :: Int -> IO ()
#endif #endif
main :: IO () 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