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/main/TidyPgm.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/main/TidyPgm.hs')
| -rw-r--r-- | compiler/main/TidyPgm.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/TidyPgm.hs b/compiler/main/TidyPgm.hs index 3a3a9161f3..e31b0ed748 100644 --- a/compiler/main/TidyPgm.hs +++ b/compiler/main/TidyPgm.hs @@ -37,7 +37,7 @@ import IdInfo import InstEnv import FamInstEnv import Type ( tidyTopType ) -import Demand ( appIsBottom, isNopSig, isBottomingSig ) +import Demand ( appIsBottom, isTopSig, isBottomingSig ) import BasicTypes import Name hiding (varName) import NameSet @@ -1242,7 +1242,7 @@ tidyTopIdInfo dflags rhs_tidy_env name orig_rhs tidy_rhs idinfo show_unfold caf_ mb_bot_str = exprBotStrictness_maybe orig_rhs sig = strictnessInfo idinfo - final_sig | not $ isNopSig sig + final_sig | not $ isTopSig sig = WARN( _bottom_hidden sig , ppr name ) sig -- try a cheap-and-cheerful bottom analyser | Just (_, nsig) <- mb_bot_str = nsig |