From: Isaac Dupree <id@isaac.cedarswampstudios.org>
Date: Fri, 1 Jun 2007 20:36:25 +0000 (+0000)
Subject: Remove unsafeCoerce-importing kludgery in favor of Unsafe.Coerce
X-Git-Tag: 2007-09-13~68
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=125018bd716dc3a36645886818101c9010abd0a2;p=ghc-base.git

Remove unsafeCoerce-importing kludgery in favor of Unsafe.Coerce
---

diff --git a/Data/Dynamic.hs b/Data/Dynamic.hs
index 761f55f..abaffe2 100644
--- a/Data/Dynamic.hs
+++ b/Data/Dynamic.hs
@@ -42,6 +42,7 @@ module Data.Dynamic
 
 import Data.Typeable
 import Data.Maybe
+import Unsafe.Coerce
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Base
@@ -57,13 +58,7 @@ import Hugs.IORef
 import Hugs.IOExts
 #endif
 
-#ifdef __GLASGOW_HASKELL__
-unsafeCoerce :: a -> b
-unsafeCoerce = unsafeCoerce#
-#endif
-
 #ifdef __NHC__
-import NonStdUnsafeCoerce (unsafeCoerce)
 import NHC.IOExtras (IORef,newIORef,readIORef,writeIORef,unsafePerformIO)
 #endif
 
diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index 7a8b733..f548dc9 100644
--- a/Data/Typeable.hs
+++ b/Data/Typeable.hs
@@ -87,6 +87,7 @@ import Data.Either
 import Data.Int
 import Data.Word
 import Data.List( foldl )
+import Unsafe.Coerce
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Base
@@ -120,19 +121,13 @@ import Hugs.Prelude	( Key(..), TypeRep(..), TyCon(..), Ratio,
 			  ArrayException, AsyncException, Handle,
 			  Ptr, FunPtr, ForeignPtr, StablePtr )
 import Hugs.IORef	( IORef, newIORef, readIORef, writeIORef )
-import Hugs.IOExts	( unsafePerformIO, unsafeCoerce )
+import Hugs.IOExts	( unsafePerformIO )
 	-- For the Typeable instance
 import Hugs.Array	( Array )
 import Hugs.ConcBase	( MVar )
 #endif
 
-#ifdef __GLASGOW_HASKELL__
-unsafeCoerce :: a -> b
-unsafeCoerce = unsafeCoerce#
-#endif
-
 #ifdef __NHC__
-import NonStdUnsafeCoerce (unsafeCoerce)
 import NHC.IOExtras (IORef,newIORef,readIORef,writeIORef,unsafePerformIO)
 import IO (Handle)
 import Ratio (Ratio)