diff options
author | simonpj@microsoft.com <unknown> | 2009-10-30 17:59:07 +0000 |
---|---|---|
committer | simonpj@microsoft.com <unknown> | 2009-10-30 17:59:07 +0000 |
commit | fb6d198f498d4e325a540f28aaa6e1d1530839c3 (patch) | |
tree | 8c5ddb69e8e7b047e4b09914b1aa8527d121a31e /compiler/deSugar/DsArrows.lhs | |
parent | cf4d037c05371455b7ae68c2b61215bd691e137a (diff) | |
download | haskell-fb6d198f498d4e325a540f28aaa6e1d1530839c3.tar.gz |
Minor refactoring
MkCore.mkCoreTupTy moves to TysWiredIn, where it is called mkBoxedTupleTy
Diffstat (limited to 'compiler/deSugar/DsArrows.lhs')
-rw-r--r-- | compiler/deSugar/DsArrows.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/DsArrows.lhs b/compiler/deSugar/DsArrows.lhs index 3ffda53c87..48700f6773 100644 --- a/compiler/deSugar/DsArrows.lhs +++ b/compiler/deSugar/DsArrows.lhs @@ -142,7 +142,7 @@ coreCasePair scrut_var var1 var2 body \begin{code} mkCorePairTy :: Type -> Type -> Type -mkCorePairTy t1 t2 = mkCoreTupTy [t1, t2] +mkCorePairTy t1 t2 = mkBoxedTupleTy [t1, t2] mkCorePairExpr :: CoreExpr -> CoreExpr -> CoreExpr mkCorePairExpr e1 e2 = mkCoreTup [e1, e2] |