X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FTimeout.hs;fp=System%2FTimeout.hs;h=f27a936ed29edb9a984c7088bd40c8ccde5c3a3b;hb=2ebff97f8efea061ec2c51d8dd8fa19dd880243d;hp=431f709a259273857669de2704c40f6384c78ab5;hpb=1e215b361470a13574e5bb341d1910871416a248;p=ghc-base.git

diff --git a/System/Timeout.hs b/System/Timeout.hs
index 431f709..f27a936 100644
--- a/System/Timeout.hs
+++ b/System/Timeout.hs
@@ -27,6 +27,7 @@ import Control.Concurrent  (forkIO, threadDelay, myThreadId, killThread)
 import Control.Exception   (Exception, handleJust, throwTo, bracket)
 import Data.Typeable
 import Data.Unique         (Unique, newUnique)
+import GHC.Num
 
 -- An internal type that is thrown as a dynamic exception to
 -- interrupt the running IO computation when the timeout has