[commit: ghc-prim] ghc-generics: Generics: implement automatic deriving of Generic1. (888b389)

[José Pedro Magalhães]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/ghc-prim

On branch  : ghc-generics

http://hackage.haskell.org/trac/ghc/changeset/888b38984aeb9008b9bb6f12a6ee5c2faa105c3d

>---------------------------------------------------------------

commit 888b38984aeb9008b9bb6f12a6ee5c2faa105c3d
Author: Jose Pedro Magalhaes <jpm at cs.uu.nl>
Date:   Wed Jul 27 15:33:50 2011 +0200

    Generics: implement automatic deriving of Generic1.

>---------------------------------------------------------------

 GHC/CString.hs  |    1 -
 GHC/Generics.hs |    5 +++++
 2 files changed, 5 insertions(+), 1 deletions(-)

diff --git a/GHC/CString.hs b/GHC/CString.hs
index d51eaf6..2efb47f 100644
--- a/GHC/CString.hs
+++ b/GHC/CString.hs
@@ -16,7 +16,6 @@
 -----------------------------------------------------------------------------
 
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
-{-# OPTIONS_GHC -XNoGenerics        #-}
 {-# OPTIONS_GHC -XBangPatterns      #-}
 
 module GHC.CString (
diff --git a/GHC/Generics.hs b/GHC/Generics.hs
index bdaa702..4dc260e 100644
--- a/GHC/Generics.hs
+++ b/GHC/Generics.hs
@@ -22,12 +22,17 @@ module GHC.Generics  (
   -- * Generic type classes
   , Generic(..), Generic1(..)
 
+  , genUnsafeCoerce
   ) where
   
 -- We use some base types
 import {-# SOURCE #-} GHC.Types
 -- We need this to give the Generic instances in ghc-prim
 import GHC.CString ()
+import GHC.Prim (unsafeCoerce#)
+
+genUnsafeCoerce :: a -> b
+genUnsafeCoerce = unsafeCoerce#
 
 --------------------------------------------------------------------------------
 -- Representation types