From 07e3238de5aff7456a5e8e4b5ba39040dae6806a Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Wed, 14 Nov 2007 23:33:56 +0000 Subject: [PATCH] wibble --- compiler/ghci/RtClosureInspect.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs index 9c2d225..dae9260 100644 --- a/compiler/ghci/RtClosureInspect.hs +++ b/compiler/ghci/RtClosureInspect.hs @@ -450,13 +450,13 @@ cPprTermBase y = . pprDeeperList fsep . punctuate (space<>colon) $ print_elems - else brackets (pprDeeperList fsep$ + else brackets (pprDeeperList fcat$ punctuate comma print_elems) where Just a /= Just b = not (a `coreEqType` b) _ /= _ = True getListTerms Term{subTerms=[h,t]} = h : getListTerms t - getListTerms Term{subTerms=[]} = [] + getListTerms Term{subTerms=[]} = [] getListTerms t@Suspension{} = [t] getListTerms t = pprPanic "getListTerms" (ppr t) -- 1.7.10.4