diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 19:23:07 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 19:23:07 +0100 |
| commit | b39ab7d541b93ba3f471cce33a662b02bac5e563 (patch) | |
| tree | 5f22ab88a8a839db7f569c85e95324c1e32383a6 /compiler/utils/Outputable.lhs | |
| parent | ab50c9c527d19f4df7ee6742b6d79c855d57c9b8 (diff) | |
| download | haskell-b39ab7d541b93ba3f471cce33a662b02bac5e563.tar.gz | |
Pass DynFlags down to showSDocDebug
Diffstat (limited to 'compiler/utils/Outputable.lhs')
| -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 3f03d56408..126cd97c59 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -396,8 +396,8 @@ showSDocDumpOneLine :: SDoc -> String showSDocDumpOneLine d = Pretty.showDocWith OneLineMode (runSDoc d (initSDocContext PprDump)) -showSDocDebug :: SDoc -> String -showSDocDebug d = show (runSDoc d (initSDocContext PprDebug)) +showSDocDebug :: DynFlags -> SDoc -> String +showSDocDebug _ d = show (runSDoc d (initSDocContext PprDebug)) showPpr :: Outputable a => DynFlags -> a -> String showPpr dflags = showSDoc dflags . ppr |