X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Prelude.hs;fp=Prelude.hs;h=813d252f5f79f6c85dad7d4050a5636d095d5c88;hb=fb80d56c0b7617261c93a808e9001bbb25a7562e;hp=8eb912bffa412d9ee568f4dccf7336d1cd258d48;hpb=e9322a82795c5654b746afefcb3363b591143879;p=ghc-base.git

diff --git a/Prelude.hs b/Prelude.hs
index 8eb912b..813d252 100644
--- a/Prelude.hs
+++ b/Prelude.hs
@@ -146,21 +146,16 @@ module Prelude (
 #ifndef __HUGS__
 import Control.Monad
 import System.IO
-import Text.Read
-import Text.Show
 import Data.List
 import Data.Either
 import Data.Maybe
-import Data.Bool
 import Data.Tuple
-import Data.Eq
-import Data.Ord
 #endif
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Base
 import GHC.IOBase
-import GHC.Exception
+import GHC.Exception ( throw )
 import GHC.Read
 import GHC.Enum
 import GHC.Num
@@ -170,7 +165,7 @@ import GHC.Show
 import GHC.Err   ( error, undefined )
 #endif
 
-import qualified Control.OldException as Old
+import qualified Control.OldException as Old hiding ( throw )
 
 #ifdef __HUGS__
 import Hugs.Prelude