From: Pepe Iborra <mnislaih@gmail.com>
Date: Sun, 7 Jan 2007 20:43:19 +0000 (+0000)
Subject: Try to emulate the output of 'deriving Show' in the Term pretty printer
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=316d4c57e003dee948de9fb12b423ec4247d34b5

Try to emulate the output of 'deriving Show' in the Term pretty printer
---

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