diff options
Diffstat (limited to 'compiler/iface/BuildTyCl.lhs')
| -rw-r--r-- | compiler/iface/BuildTyCl.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/iface/BuildTyCl.lhs b/compiler/iface/BuildTyCl.lhs index ad580289c5..9eda9073dd 100644 --- a/compiler/iface/BuildTyCl.lhs +++ b/compiler/iface/BuildTyCl.lhs @@ -138,7 +138,7 @@ mkNewTyConRep tc rhs_ty if isRecursiveTyCon tc then go (tc:tcs) (substTyWith tvs tys rhs_ty) else - go tcs (head tys) + substTyWith tvs tys rhs_ty where (tvs, rhs_ty) = newTyConRhs tc |