From 0752b4f03fae9847bfbf440d3d5dcc1705e3b4f6 Mon Sep 17 00:00:00 2001 From: Sebastian Graf Date: Tue, 21 Jan 2020 05:10:59 -0500 Subject: `-ddump-str-signatures` dumps Text, not STG [skip ci] --- compiler/stranal/DmdAnal.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.1