From 7779bb3571fdfc9412323f12529d71df1955926b Mon Sep 17 00:00:00 2001 From: David Waern Date: Fri, 25 Jul 2008 17:15:53 +0000 Subject: Simplify definition of pretty and trace_ppr --- src/Haddock/GHC/Utils.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Haddock/GHC') diff --git a/src/Haddock/GHC/Utils.hs b/src/Haddock/GHC/Utils.hs index e71cc2e1..20607cd2 100644 --- a/src/Haddock/GHC/Utils.hs +++ b/src/Haddock/GHC/Utils.hs @@ -68,8 +68,8 @@ getMainDeclBinder _ = Nothing pretty :: Outputable a => a -> String -pretty x = show (ppr x defaultUserStyle) +pretty x = showSDoc (ppr x) trace_ppr :: Outputable a => a -> b -> b -trace_ppr x y = trace (showSDoc (ppr x)) y +trace_ppr x y = trace (pretty x) y -- cgit v1.2.3