Whitespace only
authorJose Pedro Magalhaes <jpm@cs.uu.nl>
Tue, 22 Nov 2011 13:18:07 +0000 (13:18 +0000)
committerJose Pedro Magalhaes <jpm@cs.uu.nl>
Fri, 25 Nov 2011 16:51:06 +0000 (16:51 +0000)
compiler/typecheck/TcGenGenerics.lhs

index d034a39..126575d 100644 (file)
@@ -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]