summaryrefslogtreecommitdiff
path: root/compiler/deSugar/DsArrows.lhs
diff options
context:
space:
mode:
authorsimonpj@microsoft.com <unknown>2009-10-30 17:59:07 +0000
committersimonpj@microsoft.com <unknown>2009-10-30 17:59:07 +0000
commitfb6d198f498d4e325a540f28aaa6e1d1530839c3 (patch)
tree8c5ddb69e8e7b047e4b09914b1aa8527d121a31e /compiler/deSugar/DsArrows.lhs
parentcf4d037c05371455b7ae68c2b61215bd691e137a (diff)
downloadhaskell-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.lhs2
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]