diff options
Diffstat (limited to 'compiler/ghci/RtClosureInspect.hs')
| -rw-r--r-- | compiler/ghci/RtClosureInspect.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs index 56efbb8fad..b95d05322f 100644 --- a/compiler/ghci/RtClosureInspect.hs +++ b/compiler/ghci/RtClosureInspect.hs @@ -48,7 +48,7 @@ import Name import VarEnv import Util import VarSet -import BasicTypes ( TupleSort(UnboxedTuple) ) +import BasicTypes ( Boxity(..) ) import TysPrim import PrelNames import TysWiredIn @@ -832,8 +832,9 @@ extractSubTerms recurse clos = liftM thirdOf3 . go 0 (nonPtrs clos) let (ws0, ws1) = splitAt (primRepSizeW dflags rep) ws return (ptr_i, ws1, Prim ty ws0) - unboxedTupleTerm ty terms = Term ty (Right (tupleCon UnboxedTuple (length terms))) - (error "unboxedTupleTerm: no HValue for unboxed tuple") terms + unboxedTupleTerm ty terms + = Term ty (Right (tupleDataCon Unboxed (length terms))) + (error "unboxedTupleTerm: no HValue for unboxed tuple") terms -- Fast, breadth-first Type reconstruction |