summaryrefslogtreecommitdiff
path: root/testsuite/tests/plugins/static-plugins.hs
diff options
context:
space:
mode:
authorSylvain Henry <sylvain@haskus.fr>2020-11-03 12:04:53 +0100
committerMarge Bot <ben+marge-bot@smart-cactus.org>2020-11-21 01:14:09 -0500
commitecfd0278cb811c93853c176fe5df60222d1a8fb5 (patch)
tree7fc212d973a0d9e5e67e13011bf30907b1458228 /testsuite/tests/plugins/static-plugins.hs
parent53ad67eacacde8fde452f1a323d5886183375182 (diff)
downloadhaskell-ecfd0278cb811c93853c176fe5df60222d1a8fb5.tar.gz
Move Plugins into HscEnv (#17957)
Loaded plugins have nothing to do in DynFlags so this patch moves them into HscEnv (session state). "DynFlags plugins" become "Driver plugins" to still be able to register static plugins. Bump haddock submodule
Diffstat (limited to 'testsuite/tests/plugins/static-plugins.hs')
-rw-r--r--testsuite/tests/plugins/static-plugins.hs14
1 files changed, 9 insertions, 5 deletions
diff --git a/testsuite/tests/plugins/static-plugins.hs b/testsuite/tests/plugins/static-plugins.hs
index af57614ffe..be0a503f84 100644
--- a/testsuite/tests/plugins/static-plugins.hs
+++ b/testsuite/tests/plugins/static-plugins.hs
@@ -1,9 +1,13 @@
module Main where
-import GHC.Types.Avail
-import Control.Monad.IO.Class
+import GHC.Driver.Env
import GHC.Driver.Session
(getDynFlags, parseDynamicFlagsCmdLine, defaultFatalMessager, defaultFlushOut)
+import GHC.Driver.Plugins
+import GHC.Driver.Monad
+
+import GHC.Types.Avail
+import Control.Monad.IO.Class
import GHC
import GHC.Fingerprint.Type
import GHC.Hs.Decls
@@ -12,7 +16,6 @@ import GHC.Hs.Expr
import GHC.Hs.Extension
import GHC.Hs.ImpExp
import GHC.Utils.Outputable
-import GHC.Driver.Plugins
import System.Environment
import GHC.Tc.Types
@@ -65,9 +68,10 @@ main = do
target <- guessTarget "static-plugins-module.hs" Nothing
setTargets [target]
+ modifySession (\hsc_env -> hsc_env { hsc_static_plugins = the_plugins})
+
dflags <- getSessionDynFlags
- setSessionDynFlags dflags { staticPlugins = the_plugins
- , outputFile_ = Nothing }
+ setSessionDynFlags dflags { outputFile_ = Nothing }
load LoadAllTargets