Commit d51aa9da authored by simonpj's avatar simonpj
Browse files

[project @ 2003-10-29 18:10:57 by simonpj]

Put to and from the correct way round
parent 0b9322d8
......@@ -254,11 +254,11 @@ mkGenericBinds tcs = andMonoBindList [ mkTyConGenBinds tc
mkTyConGenBinds :: TyCon -> MonoBinds RdrName
mkTyConGenBinds tycon
= FunMonoBind to_RDR False {- Not infix -}
= FunMonoBind from_RDR False {- Not infix -}
[mkSimpleHsAlt pat rhs | (pat,rhs) <- from_alts]
loc
`AndMonoBinds`
FunMonoBind from_RDR False
FunMonoBind to_RDR False
[mkSimpleHsAlt (VarPat to_arg) to_body] loc
where
loc = getSrcLoc tycon
......
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