X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FConc%2FIO.hs;h=590e3ab5fc86c3607f1e3bd6e235ca99aae30c62;hb=595f2cbc9072003f4e86dab6d1c9a408d388f3b7;hp=785239cefacae04dd1c77f29241a0e0349dc4905;hpb=4748a7927948a6538c6e96a3d06bea75545b9301;p=ghc-base.git

diff --git a/GHC/Conc/IO.hs b/GHC/Conc/IO.hs
index 785239c..590e3ab 100644
--- 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', () #)
         }}