Spelling only

[ghc-base.git] / Unsafe / Coerce.hs

diff --git a/Unsafe/Coerce.hs b/Unsafe/Coerce.hs
index a90b149..00444bd 100644 (file)
--- a/Unsafe/Coerce.hs
+++ b/Unsafe/Coerce.hs
@@ -1,3 +1,4 @@
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Unsafe.Coerce
@@ -12,6 +13,9 @@
 -- type to any other type.  Needless to say, if you use this function,
 -- it is your responsibility to ensure that the old and new types have
 -- identical internal representations, in order to prevent runtime corruption.
+--
+-- 'unsafeCoerce' is just a trivial wrapper for 'unsafeCoerce#';
+-- see the latter for important documentation about correct usage.
 
 module Unsafe.Coerce (unsafeCoerce) where
 
@@ -26,5 +30,5 @@ import NonStdUnsafeCoerce (unsafeCoerce)
 #endif
 
 #if defined(__HUGS__)
-import Hugs.Base (unsafeCoerce)
+import Hugs.IOExts (unsafeCoerce)
 #endif