diff options
Diffstat (limited to 'compiler/GHC/Driver/CodeOutput.hs')
| -rw-r--r-- | compiler/GHC/Driver/CodeOutput.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/Driver/CodeOutput.hs b/compiler/GHC/Driver/CodeOutput.hs index 8c990b16cb..60513c9b82 100644 --- a/compiler/GHC/Driver/CodeOutput.hs +++ b/compiler/GHC/Driver/CodeOutput.hs @@ -100,8 +100,7 @@ codeOutput logger tmpfs dflags unit_state this_mod filenm location genForeignStu { case cmmLint (targetPlatform dflags) cmm of Just err -> do { putLogMsg logger dflags - NoReason - SevDump + MCDump noSrcSpan $ withPprStyle defaultDumpStyle err ; ghcExit logger dflags 1 |