X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FTypeable.hs;h=606c8ccd8c8130930fbe144d8906d8baf35dde1e;hb=1a2c75698b74fe40e3cd91854c3f6a64e1dac348;hp=85282bd040932c68f03f7e5006913ceb4dd4e111;hpb=749bc4bf881cac5208af6694e16952456e25388a;p=ghc-base.git

diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index 85282bd..606c8cc 100644
--- a/Data/Typeable.hs
+++ b/Data/Typeable.hs
@@ -94,7 +94,6 @@ import GHC.Show         (Show(..), ShowS,
                          shows, showString, showChar, showParen)
 import GHC.Err          (undefined)
 import GHC.Num          (Integer, fromInteger, (+))
-import GHC.Float        (Float, Double)
 import GHC.Real         ( rem, Ratio )
 import GHC.IOBase       (IORef,newIORef,unsafePerformIO)
 
@@ -114,9 +113,7 @@ import GHC.Arr          ( Array, STArray )
 
 #ifdef __HUGS__
 import Hugs.Prelude     ( Key(..), TypeRep(..), TyCon(..), Ratio,
-                          Exception, ArithException, IOException,
-                          ArrayException, AsyncException, Handle,
-                          Ptr, FunPtr, ForeignPtr, StablePtr )
+                          Handle, Ptr, FunPtr, ForeignPtr, StablePtr )
 import Hugs.IORef       ( IORef, newIORef, readIORef, writeIORef )
 import Hugs.IOExts      ( unsafePerformIO )
         -- For the Typeable instance