diff options
author | Ian Lynagh <igloo@earth.li> | 2012-06-12 19:27:37 +0100 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 19:27:37 +0100 |
commit | 2ba157bc9bd338b7627814470672562c1a6d47e4 (patch) | |
tree | f00b8c5a2acb5b968e8f1e314de6719a3a3d8349 /compiler/utils | |
parent | b39ab7d541b93ba3f471cce33a662b02bac5e563 (diff) | |
download | haskell-2ba157bc9bd338b7627814470672562c1a6d47e4.tar.gz |
Pass DynFlags down to showSDocDumpOneLine
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 126cd97c59..80c04094be 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -392,8 +392,8 @@ showSDocDump :: DynFlags -> SDoc -> String showSDocDump _ d = Pretty.showDocWith PageMode (runSDoc d (initSDocContext defaultDumpStyle)) -showSDocDumpOneLine :: SDoc -> String -showSDocDumpOneLine d +showSDocDumpOneLine :: DynFlags -> SDoc -> String +showSDocDumpOneLine _ d = Pretty.showDocWith OneLineMode (runSDoc d (initSDocContext PprDump)) showSDocDebug :: DynFlags -> SDoc -> String |