Commit be910728 authored by Sebastian Graf's avatar Sebastian Graf Committed by Marge Bot
Browse files

`-ddump-str-signatures` dumps Text, not STG [skip ci]

parent ad4eb7a7
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment