Remove unnecessary fromIntegral calls

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

diff --git a/GHC/Conc/IO.hs b/GHC/Conc/IO.hs
index 785239c..590e3ab 100644 (file)
--- a/GHC/Conc/IO.hs
+++ b/GHC/Conc/IO.hs
@@ -107,7 +107,7 @@ threadDelay time
   | threaded  = Event.threadDelay time
 #endif
   | otherwise = IO $ \s ->
-        case fromIntegral time of { I# time# ->
+        case time of { I# time# ->
         case delay# time# s of { s' -> (# s', () #)
         }}