X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fghci%2FRtClosureInspect.hs;h=dae9260db0a4e1d51ca0e4839baf19fa052d3a24;hp=9c2d225d411a6c2af9a9158520a13c35b884734c;hb=07e3238de5aff7456a5e8e4b5ba39040dae6806a;hpb=3ad311341e189e574139921bd98449d7aed9ba26

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)