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

diff --git a/System/Timeout.hs b/System/Timeout.hs
index 9ccc634..431f709 100644
--- a/System/Timeout.hs
+++ b/System/Timeout.hs
@@ -20,12 +20,11 @@ module System.Timeout ( timeout ) where
 
 #ifdef __GLASGOW_HASKELL__
 import Prelude             (Show(show), IO, Ord((<)), Eq((==)), Int,
-                            (.), otherwise, fmap)
+                            otherwise, fmap)
 import Data.Maybe          (Maybe(..))
-import Control.Monad       (Monad(..), guard)
+import Control.Monad       (Monad(..))
 import Control.Concurrent  (forkIO, threadDelay, myThreadId, killThread)
 import Control.Exception   (Exception, handleJust, throwTo, bracket)
-import Data.Dynamic        (Typeable, fromDynamic)
 import Data.Typeable
 import Data.Unique         (Unique, newUnique)