diff options
author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-06-03 14:33:05 -0700 |
---|---|---|
committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-06-20 15:13:42 -0700 |
commit | 0cb1f5cf26fae946ca745abc5e302e62a8f66feb (patch) | |
tree | 07744de6d51cea9bde926d3ea88c1fda2b138974 /testsuite/tests/plugins/T10420.hs | |
parent | 85d539754ac07286ef5fed714ad42451bd5a1d28 (diff) | |
download | haskell-0cb1f5cf26fae946ca745abc5e302e62a8f66feb.tar.gz |
Filter orphan rules based on imports, fixes #10294 and #10420.
Summary:
If we have an orphan rule in our database, don't apply it
unless the defining module is transitively imported by the
module we are processing. We do this by defining a new RuleEnv
data type which includes both the RuleBase as well as the set
of visible orphan modules, and threading this through the
relevant environments (CoreReader, RuleCheckEnv and ScEnv).
This is analogous to the instances fix we applied in #2182
4c834fdddf4d44d12039da4d6a2c63a660975b95, but done for RULES.
An important knock-on effect is that we can remove some buggy
code in LoadInterface which tried to avoid loading interfaces
that were loaded by plugins (which sometimes caused instances
and rules to NEVER become visible).
One note about tests: I renamed the old plugins07 test to T10420
and replaced plugins07 with a test to ensure that a plugin
import did not cause new rules to be loaded in.
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Test Plan: validate
Reviewers: simonpj, austin, goldfire
Subscribers: bgamari, thomie
Differential Revision: https://phabricator.haskell.org/D950
GHC Trac Issues: #10420
Diffstat (limited to 'testsuite/tests/plugins/T10420.hs')
-rw-r--r-- | testsuite/tests/plugins/T10420.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/plugins/T10420.hs b/testsuite/tests/plugins/T10420.hs new file mode 100644 index 0000000000..7b863445ec --- /dev/null +++ b/testsuite/tests/plugins/T10420.hs @@ -0,0 +1,10 @@ +module Main where + +import T10420a + +import RuleDefiningPlugin + +{-# NOINLINE x #-} +x = "foo" + +main = putStrLn (show x) |