diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-09-20 16:58:51 +0000 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-09-20 16:58:51 +0000 |
| commit | 44ba24dc84d271ca9bd5ab5060cb63ed87f585e3 (patch) | |
| tree | ce3cf7ea8f2ec9eb42bff4fbc246fe9bee95dd7e /compiler/iface/BuildTyCl.lhs | |
| parent | e6e3c778b0723dd98842f223576dbef4d8ec57a1 (diff) | |
| download | haskell-44ba24dc84d271ca9bd5ab5060cb63ed87f585e3.tar.gz | |
some bug-fixes, newtype deriving might work now
Mon Sep 18 14:33:01 EDT 2006 Manuel M T Chakravarty <chak@cse.unsw.edu.au>
* some bug-fixes, newtype deriving might work now
Sat Aug 5 21:29:28 EDT 2006 Manuel M T Chakravarty <chak@cse.unsw.edu.au>
* some bug-fixes, newtype deriving might work now
Tue Jul 11 12:16:13 EDT 2006 kevind@bu.edu
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 |