Remove a redundant fromIntegral

diff --git a/GHC/Conc/Windows.hs b/GHC/Conc/Windows.hs
index 14139b7..b750185 100644 (file)
--- a/GHC/Conc/Windows.hs
+++ b/GHC/Conc/Windows.hs
@@ -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', () #)
         }}