Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/2639f405da47a118050d26f93cdac5355908ccaa >--------------------------------------------------------------- commit 2639f405da47a118050d26f93cdac5355908ccaa Author: Jose Pedro Magalhaes <[email protected]> Date: Tue Nov 22 13:18:07 2011 +0000 Whitespace only >--------------------------------------------------------------- compiler/typecheck/TcGenGenerics.lhs | 5 ++--- 1 files changed, 2 insertions(+), 3 deletions(-) diff --git a/compiler/typecheck/TcGenGenerics.lhs b/compiler/typecheck/TcGenGenerics.lhs index d034a39..126575d 100644 --- a/compiler/typecheck/TcGenGenerics.lhs +++ b/compiler/typecheck/TcGenGenerics.lhs @@ -239,8 +239,8 @@ mkBindsRep tycon = `unionBags` unitBag (L loc (mkFunBind (L loc to_RDR) to_matches)) where - from_matches = [mkSimpleHsAlt pat rhs | (pat,rhs) <- from_alts] - to_matches = [mkSimpleHsAlt pat rhs | (pat,rhs) <- to_alts ] + from_matches = [mkSimpleHsAlt pat rhs | (pat,rhs) <- from_alts] + to_matches = [mkSimpleHsAlt pat rhs | (pat,rhs) <- to_alts ] loc = srcLocSpan (getSrcLoc tycon) datacons = tyConDataCons tycon @@ -267,7 +267,6 @@ tc_mkRepTyCon tycon metaDts mod = ; rep0Ty <- tc_mkRepTy tycon metaDts -- `rep_name` is a name we generate for the synonym --- ; rep_name <- newImplicitBinder (tyConName tycon) mkGenR ; rep_name <- newGlobalBinder mod (mkGenR (nameOccName (tyConName tycon))) (nameSrcSpan (tyConName tycon)) ; let -- `tyvars` = [a,b] _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
