X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FRtClosureInspect.hs;h=ef8d367602df5ba93bdd653595f2b5f7c4fd8601;hb=316d4c57e003dee948de9fb12b423ec4247d34b5;hp=d3650a3e49fca8083b6a3cbbc257dc4a34204ab3;hpb=586149353a755cf7ba7c0bd499a397c3c8230839;p=ghc-hetmet.git

diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs
index d3650a3..ef8d367 100644
--- a/compiler/ghci/RtClosureInspect.hs
+++ b/compiler/ghci/RtClosureInspect.hs
@@ -343,7 +343,7 @@ customPrintTerm custom = let
 customPrintTermBase :: Monad m => (Int->Term-> m SDoc)->[Term->m (Maybe SDoc)]
 customPrintTermBase showP =
   [ 
-    test isTupleDC (liftM (parens . cat . punctuate comma) . mapM (showP 0) . subTerms)
+    test isTupleDC (liftM (parens . hcat . punctuate comma) . mapM (showP 0) . subTerms)
   , test (isDC consDataCon) (\Term{subTerms=[h,t]} -> doList h t)
   , test (isDC intDataCon)  (coerceShow$ \(a::Int)->a)
   , test (isDC charDataCon) (coerceShow$ \(a::Char)->a)
@@ -370,7 +370,7 @@ customPrintTermBase showP =
                             1 -> last0 
                             _ | isConsLast -> text " | " <> last0
                             _ -> comma <> last0
-               return$ brackets (cat (punctuate comma init ++ [last]))
+               return$ brackets (hcat (punctuate comma init ++ [last]))
 
                 where Just a /= Just b = not (a `coreEqType` b)
                       _      /=   _    = True