Commit b285ae1c authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Fix error in tidying the type variables of a TyCon when building an interface file

parent beb2f743
...@@ -1481,7 +1481,7 @@ tyConToIfaceDecl env tycon ...@@ -1481,7 +1481,7 @@ tyConToIfaceDecl env tycon
| otherwise = pprPanic "toIfaceDecl" (ppr tycon) | otherwise = pprPanic "toIfaceDecl" (ppr tycon)
where where
(env1, tyvars) = tidyTyVarBndrs env (tyConTyVars tycon) (env1, tyvars) = tidyTyClTyVarBndrs env (tyConTyVars tycon)
to_ifsyn_rhs (SynFamilyTyCon a b) = SynFamilyTyCon a b to_ifsyn_rhs (SynFamilyTyCon a b) = SynFamilyTyCon a b
to_ifsyn_rhs (SynonymTyCon ty) = SynonymTyCon (tidyToIfaceType env1 ty) to_ifsyn_rhs (SynonymTyCon ty) = SynonymTyCon (tidyToIfaceType env1 ty)
......
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