diff options
| -rw-r--r-- | src/Haddock/GHC/Utils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |