Remove a redundant fromIntegral

[ghc-base.git] / GHC / Conc / Windows.hs

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', () #)
         }}