testsuite/tests/driver/recompPluginPackage/q/Plugin.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module Plugin where

import GHC.Plugins
import Lib

plugin :: Plugin
plugin = defaultPlugin {
  installCoreToDos = install
  , pluginRecompile = purePlugin
  }

install :: [CommandLineOption] -> [CoreToDo] -> CoreM [CoreToDo]
install _ todo = do
  liftIO (print p)
  return todo