diff options
Diffstat (limited to 'compiler/ghci/RtClosureInspect.hs')
| -rw-r--r-- | compiler/ghci/RtClosureInspect.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs index 59f5669e3e..050d680d6c 100644 --- a/compiler/ghci/RtClosureInspect.hs +++ b/compiler/ghci/RtClosureInspect.hs @@ -448,7 +448,7 @@ cPprTermBase y = --Note pprinting of list terms is not lazy doList p (Term{subTerms=[h,t]}) = do let elems = h : getListTerms t - isConsLast = not(termType(last elems) `coreEqType` termType h) + isConsLast = not(termType(last elems) `eqType` termType h) print_elems <- mapM (y cons_prec) elems return$ if isConsLast then cparen (p >= cons_prec) @@ -879,8 +879,8 @@ improveRTTIType _ base_ty new_ty myDataConInstArgTys :: DataCon -> [Type] -> [Type] myDataConInstArgTys dc args - | null (dataConExTyVars dc) && null (dataConEqTheta dc) = dataConInstArgTys dc args - | otherwise = dataConRepArgTys dc + | isVanillaDataCon dc = dataConInstArgTys dc args + | otherwise = dataConRepArgTys dc mydataConType :: DataCon -> QuantifiedType -- ^ Custom version of DataCon.dataConUserType where we |