diff options
Diffstat (limited to 'compiler/stranal/DmdAnal.hs')
| -rw-r--r-- | compiler/stranal/DmdAnal.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/stranal/DmdAnal.hs b/compiler/stranal/DmdAnal.hs index afde951e60..b1601f2fed 100644 --- a/compiler/stranal/DmdAnal.hs +++ b/compiler/stranal/DmdAnal.hs @@ -35,7 +35,7 @@ import Util import Maybes ( isJust ) import TysWiredIn import TysPrim ( realWorldStatePrimTy ) -import ErrUtils ( dumpIfSet_dyn ) +import ErrUtils ( dumpIfSet_dyn, DumpFormat (..) ) import Name ( getName, stableNameCmp ) import Data.Function ( on ) import UniqSet @@ -53,8 +53,8 @@ dmdAnalProgram dflags fam_envs binds = do { let { binds_plus_dmds = do_prog binds } ; dumpIfSet_dyn dflags Opt_D_dump_str_signatures - "Strictness signatures" $ - dumpStrSig binds_plus_dmds ; + "Strictness signatures" FormatSTG + (dumpStrSig binds_plus_dmds) ; -- See Note [Stamp out space leaks in demand analysis] seqBinds binds_plus_dmds `seq` return binds_plus_dmds } |