diff options
| author | David Waern <david.waern@gmail.com> | 2008-07-25 17:15:53 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-07-25 17:15:53 +0000 |
| commit | 7779bb3571fdfc9412323f12529d71df1955926b (patch) | |
| tree | 4384085f09204ac05e7874d032b61cde13157566 | |
| parent | a7e3da23277a571cc6eada2448a79aae353bc500 (diff) | |
Simplify definition of pretty and trace_ppr
| -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 |