diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 12:42:58 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 12:42:58 +0100 |
| commit | 0fdca5de906b243635140819298b35f1210e51ce (patch) | |
| tree | 80602bf6714d496ded605ea4d16dba0b4ee0db6f /compiler/utils | |
| parent | 1bb4428cbc194cb959166fc8e12d0edd140e3796 (diff) | |
| download | haskell-0fdca5de906b243635140819298b35f1210e51ce.tar.gz | |
Pass DynFlags down to showPpr
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index c0b77bb9bd..1649bb0059 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -399,8 +399,8 @@ showSDocDumpOneLine d showSDocDebug :: SDoc -> String showSDocDebug d = show (runSDoc d (initSDocContext PprDebug)) -showPpr :: Outputable a => a -> String -showPpr = showSDoc . ppr +showPpr :: Outputable a => DynFlags -> a -> String +showPpr _ = showSDoc . ppr \end{code} \begin{code} |