X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FTimeout.hs;fp=System%2FTimeout.hs;h=959e1a2b02f5fb43c91c0d81c198b041c0845744;hb=31a5a33a246738fbaaef90e7c6f2b42ce3cfe135;hp=0e82704a850b9996b5fa6ea7529349ca4ea57145;hpb=6f51b721abf0d355a8cd5a58b518ea9f81118d33;p=ghc-base.git

diff --git a/System/Timeout.hs b/System/Timeout.hs
index 0e82704..959e1a2 100644
--- a/System/Timeout.hs
+++ b/System/Timeout.hs
@@ -26,7 +26,7 @@ import Prelude             (Show(show), IO, Ord((<)), Eq((==)), Int,
 import Data.Maybe          (Maybe(..))
 import Control.Monad       (Monad(..), guard)
 import Control.Concurrent  (forkIO, threadDelay, myThreadId, killThread)
-import Control.Exception   (Exception, handleJust, throwTo, bracket)
+import Control.Exception.Base (Exception, handleJust, throwTo, bracket)
 import Data.Dynamic        (Typeable, fromDynamic)
 import Data.Typeable
 import Data.Unique         (Unique, newUnique)