[commit: ghc] ghc-new-co: Remove special case for EqPred in CoreView (abfa45f)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-new-co

http://hackage.haskell.org/trac/ghc/changeset/abfa45f26f9a5d2bc67b18b7820e0b4039f12ad3

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

commit abfa45f26f9a5d2bc67b18b7820e0b4039f12ad3
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri May 6 15:34:32 2011 +0100

    Remove special case for EqPred in CoreView

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

 compiler/types/Type.lhs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/compiler/types/Type.lhs b/compiler/types/Type.lhs
index 1958a5c..0f77bcf 100644
--- a/compiler/types/Type.lhs
+++ b/compiler/types/Type.lhs
@@ -254,7 +254,7 @@ coreView :: Type -> Maybe Type
 -- By being non-recursive and inlined, this case analysis gets efficiently
 -- joined onto the case analysis that the caller is already doing
 coreView (PredTy p)
-  | isEqPred p             = Nothing
+--  | isEqPred p             = Nothing
   | otherwise    	   = Just (predTypeRep p)
 coreView (TyConApp tc tys) | Just (tenv, rhs, tys') <- coreExpandTyCon_maybe tc tys 
 			   = Just (mkAppTys (substTy (mkTopTvSubst tenv) rhs) tys')