diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-12 08:17:00 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-12 08:19:49 +0100 |
| commit | b285ae1cdb409f9d5501f11ab03a7a4a8562bae8 (patch) | |
| tree | df7a83d4d5a8163ad1056a4a3926fe350491ec2a | |
| parent | beb2f7434feb63fef7f0a0993104253b4169ccad (diff) | |
| download | haskell-b285ae1cdb409f9d5501f11ab03a7a4a8562bae8.tar.gz | |
Fix error in tidying the type variables of a TyCon when building an interface file
| -rw-r--r-- | compiler/iface/MkIface.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs index a4a9dfc5f6..c63a2e5c1d 100644 --- a/compiler/iface/MkIface.lhs +++ b/compiler/iface/MkIface.lhs @@ -1481,7 +1481,7 @@ tyConToIfaceDecl env tycon | otherwise = pprPanic "toIfaceDecl" (ppr tycon) 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 (SynonymTyCon ty) = SynonymTyCon (tidyToIfaceType env1 ty) |