diff options
Diffstat (limited to 'ghc/compiler/main/CodeOutput.lhs')
| -rw-r--r-- | ghc/compiler/main/CodeOutput.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs index 47f3b36762..a61e047234 100644 --- a/ghc/compiler/main/CodeOutput.lhs +++ b/ghc/compiler/main/CodeOutput.lhs @@ -48,7 +48,7 @@ codeOutput mod_name tycons classes stg_binds c_code h_code flat_abstractC ncg_un #ifndef OMIT_NATIVE_CODEGEN let (stix_final, ncg_output_d) = nativeCodeGen flat_absC_ncg ncg_uniqs - ncg_output_w = (\ f -> printForUser f ncg_output_d) + ncg_output_w = (\ f -> printForAsm f ncg_output_d) in dumpIfSet opt_D_dump_stix "Final stix code" stix_final >> dumpIfSet opt_D_dump_asm "Asm code" ncg_output_d >> |