Commit 2639f405 authored by dreixel's avatar dreixel
Browse files

Whitespace only

parent 6b109851
......@@ -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]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment