diff options
| author | Sebastian Graf <sgraf1337@gmail.com> | 2020-01-21 05:10:59 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-01-25 05:19:46 -0500 |
| commit | be910728d78fdf2ee800828ecdc8a11bd64fdad0 (patch) | |
| tree | 8571d6f08c9b21e6abc511d68fa725aa82106f7c | |
| parent | ad4eb7a76f6f1fb18e3ea47665feb3a9893427de (diff) | |
| download | haskell-be910728d78fdf2ee800828ecdc8a11bd64fdad0.tar.gz | |
`-ddump-str-signatures` dumps Text, not STG [skip ci]
| -rw-r--r-- | compiler/stranal/DmdAnal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/stranal/DmdAnal.hs b/compiler/stranal/DmdAnal.hs index 49ba969d9a..dbe1509b42 100644 --- a/compiler/stranal/DmdAnal.hs +++ b/compiler/stranal/DmdAnal.hs @@ -53,7 +53,7 @@ dmdAnalProgram dflags fam_envs binds = do { let { binds_plus_dmds = do_prog binds } ; dumpIfSet_dyn dflags Opt_D_dump_str_signatures - "Strictness signatures" FormatSTG + "Strictness signatures" FormatText (dumpStrSig binds_plus_dmds) ; -- See Note [Stamp out space leaks in demand analysis] seqBinds binds_plus_dmds `seq` return binds_plus_dmds |