From: Ian Lynagh <igloo@earth.li>
Date: Sat, 20 Nov 2010 18:58:37 +0000 (+0000)
Subject: Remove a redundant fromIntegral
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=98880e2a60a2924b28f3fa96099e7beaa4a18102

Remove a redundant fromIntegral
---

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