Ticket #12780: MyPlugin.hs

File MyPlugin.hs, 603 bytes (added by clinton, 2 years ago)
Line 
1{-# OPTIONS_GHC -dynamic-too #-}
2
3module MyPlugin (plugin) where
4
5import Plugins (
6  Plugin(tcPlugin),
7  defaultPlugin, tcPlugin
8  )
9import TcRnTypes (
10  TcPlugin(TcPlugin), tcPluginInit, tcPluginSolve, tcPluginStop,
11  TcPluginSolver,
12  TcPluginResult(TcPluginContradiction, TcPluginOk)
13  )
14
15plugin :: Plugin
16plugin = defaultPlugin { tcPlugin = const (Just myPlugin)  }
17
18myPlugin :: TcPlugin
19myPlugin =
20  TcPlugin
21    {
22      tcPluginInit  = return (),
23      tcPluginSolve = const solver,
24      tcPluginStop  = const (return ())
25    }
26
27solver :: TcPluginSolver
28solver _ _ _ = return $ TcPluginOk [] []
29