Commit 4c6bc7fa authored by Ian Lynagh's avatar Ian Lynagh

Remove a redundant fromIntegral

parent 0a5ae50b
......@@ -104,7 +104,7 @@ threadDelay :: Int -> IO ()
threadDelay time
| threaded = waitForDelayEvent time
| otherwise = IO $ \s ->
case fromIntegral time of { I# time# ->
case time of { I# time# ->
case delay# time# s of { s' -> (# s', () #)
}}
......
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