From 316d4c57e003dee948de9fb12b423ec4247d34b5 Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Sun, 7 Jan 2007 20:43:19 +0000 Subject: [PATCH] Try to emulate the output of 'deriving Show' in the Term pretty printer --- 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 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 -- 1.7.10.4