diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2016-03-23 10:41:16 +0100 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2016-03-29 16:53:14 +0200 |
| commit | e6e17a095f68509d60b06202e49daaf275b7c320 (patch) | |
| tree | 5cc1673c66466313a590104f568e4140c47e404d /compiler/coreSyn/PprCore.hs | |
| parent | 80d4fdf0756ce7edc534b9277d7c6c63c8ceb501 (diff) | |
| download | haskell-e6e17a095f68509d60b06202e49daaf275b7c320.tar.gz | |
Rename isNopSig to isTopSig
to be consistent with the other uses of nop vs. top in Demand.hs. Also,
stop prettyprinting top strictness signatures in Core dumps.
Diffstat (limited to 'compiler/coreSyn/PprCore.hs')
| -rw-r--r-- | compiler/coreSyn/PprCore.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/coreSyn/PprCore.hs b/compiler/coreSyn/PprCore.hs index 9ce1dad62f..0c62e4fb06 100644 --- a/compiler/coreSyn/PprCore.hs +++ b/compiler/coreSyn/PprCore.hs @@ -400,7 +400,7 @@ ppIdInfo id info , (has_arity, text "Arity=" <> int arity) , (has_called_arity, text "CallArity=" <> int called_arity) , (has_caf_info, text "Caf=" <> ppr caf_info) - , (True, text "Str=" <> pprStrictness str_info) + , (has_str_info, text "Str=" <> pprStrictness str_info) , (has_unf, text "Unf=" <> ppr unf_info) , (not (null rules), text "RULES:" <+> vcat (map pprRule rules)) ] -- Inline pragma, occ, demand, one-shot info @@ -421,6 +421,7 @@ ppIdInfo id info has_caf_info = not (mayHaveCafRefs caf_info) str_info = strictnessInfo info + has_str_info = not (isTopSig str_info) unf_info = unfoldingInfo info has_unf = hasSomeUnfolding unf_info |