diff options
Diffstat (limited to 'compiler/simplCore')
| -rw-r--r-- | compiler/simplCore/SimplMonad.hs | 2 | ||||
| -rw-r--r-- | compiler/simplCore/Simplify.hs | 4 |
2 files changed, 3 insertions, 3 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 } {- diff --git a/compiler/simplCore/Simplify.hs b/compiler/simplCore/Simplify.hs index db7f5a6f28..3614bb3f09 100644 --- a/compiler/simplCore/Simplify.hs +++ b/compiler/simplCore/Simplify.hs @@ -1440,10 +1440,10 @@ completeCall env var cont | not (dopt Opt_D_dump_inlinings dflags) = return () | not (dopt Opt_D_verbose_core2core dflags) = when (isExternalName (idName var)) $ - liftIO $ printInfoForUser dflags alwaysQualify $ + liftIO $ printOutputForUser dflags alwaysQualify $ sep [text "Inlining done:", nest 4 (ppr var)] | otherwise - = liftIO $ printInfoForUser dflags alwaysQualify $ + = liftIO $ printOutputForUser dflags alwaysQualify $ sep [text "Inlining done: " <> ppr var, nest 4 (vcat [text "Inlined fn: " <+> nest 2 (ppr unfolding), text "Cont: " <+> ppr cont])] |