X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=GHC%2FConc%2FWindows.hs;h=b75018558683e231d56bd5cd7127cd72778dbcd1;hb=b99920eab7fba4e027fd39985840d4e854b8f923;hp=14139b76e2e5ccf91b8e938a748fcd75c0099bfc;hpb=9520c5735e69668a33013c36f85152a1ef656b8d;p=ghc-base.git

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