From 98880e2a60a2924b28f3fa96099e7beaa4a18102 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 20 Nov 2010 18:58:37 +0000 Subject: [PATCH] Remove a redundant fromIntegral --- GHC/Conc/Windows.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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', () #) }} -- 1.7.10.4