summaryrefslogtreecommitdiff
path: root/testsuite/tests/plugins/LinkerTicklingPlugin.hs
blob: 7b7fc12a6287275ea5a2c0059ba7e957fff03f36 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
module LinkerTicklingPlugin where

import GHC.Plugins
import GHC.Driver.Session

plugin :: Plugin
plugin = defaultPlugin {
        installCoreToDos = install
    }

-- This tests whether plugins are linking against the *running* GHC or a new
-- instance of it. If it is a new instance (settings unsafeGlobalDynFlags) won't
-- have been initialised, so we'll get a GHC panic here:
install :: [CommandLineOption] -> [CoreToDo] -> CoreM [CoreToDo]
install _options todos = settings unsafeGlobalDynFlags `seq` return todos