diff options
| author | Alexander Vershilov <alexander.vershilov@gmail.com> | 2015-02-05 17:43:32 -0600 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2015-02-05 17:43:32 -0600 |
| commit | 73f976c47f00060baaeead9e0331ab265a84251c (patch) | |
| tree | 4f0d2a8e577627a8f3962f7895a68e839603e16e /compiler/simplCore/SimplMonad.hs | |
| parent | 7cf87fc6928f0252d9f61719e2344e6c69237079 (diff) | |
| download | haskell-73f976c47f00060baaeead9e0331ab265a84251c.tar.gz | |
Make -ddump-splices output to stdout (fixes #8796)
Summary:
Fixes debug output so all info messages will use
stdout. Fixes #8796.
Make -ddump-splices output to stdout (fixes #8796)
Make -dverbose-core2core use stdout (fixes #8796)
Reviewers: simonpj, austin
Reviewed By: austin
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D627
GHC Trac Issues: #8796
Diffstat (limited to 'compiler/simplCore/SimplMonad.hs')
| -rw-r--r-- | compiler/simplCore/SimplMonad.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/SimplMonad.hs b/compiler/simplCore/SimplMonad.hs index 451bf34f7c..00691060e9 100644 --- a/compiler/simplCore/SimplMonad.hs +++ b/compiler/simplCore/SimplMonad.hs @@ -135,7 +135,7 @@ traceSmpl :: String -> SDoc -> SimplM () traceSmpl herald doc = do { dflags <- getDynFlags ; when (dopt Opt_D_dump_simpl_trace dflags) $ liftIO $ - printInfoForUser dflags alwaysQualify $ + printOutputForUser dflags alwaysQualify $ hang (text herald) 2 doc } {- |