diff options
| author | partain <unknown> | 1996-03-21 12:48:09 +0000 |
|---|---|---|
| committer | partain <unknown> | 1996-03-21 12:48:09 +0000 |
| commit | 0596517a9b4b2b32e5d375a986351102ac4540fc (patch) | |
| tree | 1d3cdb3153c68ffaeccde89070f0fca3f1af5d77 /ghc/compiler/deSugar/DsUtils.lhs | |
| parent | 6c381e873e222417d9a67aeec77b9555eca7b7a8 (diff) | |
| download | haskell-0596517a9b4b2b32e5d375a986351102ac4540fc.tar.gz | |
[project @ 1996-03-21 12:46:33 by partain]
Final compiler stuff before Sansom renamer 960321
Diffstat (limited to 'ghc/compiler/deSugar/DsUtils.lhs')
| -rw-r--r-- | ghc/compiler/deSugar/DsUtils.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/deSugar/DsUtils.lhs b/ghc/compiler/deSugar/DsUtils.lhs index b58c6d5ebc..07cbe0b249 100644 --- a/ghc/compiler/deSugar/DsUtils.lhs +++ b/ghc/compiler/deSugar/DsUtils.lhs @@ -42,7 +42,7 @@ import PrelInfo ( stringTy ) import Id ( idType, getInstantiatedDataConSig, mkTupleCon, DataCon(..), DictVar(..), Id(..), GenId ) import TyCon ( mkTupleTyCon ) -import Type ( mkTyVarTy, mkRhoTy, mkFunTys, +import Type ( mkTyVarTys, mkRhoTy, mkFunTys, applyTyCon, getAppDataTyCon ) import UniqSet ( mkUniqSet, minusUniqSet, uniqSetToList, UniqSet(..) ) import Util ( panic, assertPanic ) @@ -400,7 +400,7 @@ mkTupleBind tyvars dicts local_global_prs tuple_expr globals = [global | (local,global) <- local_global_prs] no_of_binders = length local_global_prs - tyvar_tys = map mkTyVarTy tyvars + tyvar_tys = mkTyVarTys tyvars tuple_var_ty :: Type tuple_var_ty |