Remove unsafeCoerce-importing kludgery in favor of Unsafe.Coerce
authorIsaac Dupree <id@isaac.cedarswampstudios.org>
Fri, 1 Jun 2007 20:36:25 +0000 (20:36 +0000)
committerIsaac Dupree <id@isaac.cedarswampstudios.org>
Fri, 1 Jun 2007 20:36:25 +0000 (20:36 +0000)
libraries/base/Data/Dynamic.hs
libraries/base/Data/Typeable.hs

index 761f55f..abaffe2 100644 (file)
@@ -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
 
index 7a8b733..f548dc9 100644 (file)
@@ -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)