blob: c8a3bb6d34fe1f3a4bf2899124d6858e9c585ea1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module TcPluginGHCi where
import TcRnMonad ( TcPlugin(..), TcPluginResult(..) )
import Plugins ( defaultPlugin, Plugin(..), CommandLineOption )
import Debug.Trace
plugin :: Plugin
plugin = defaultPlugin { tcPlugin = Just . thePlugin }
thePlugin :: [CommandLineOption] -> TcPlugin
thePlugin opts = TcPlugin
{ tcPluginInit = trace "TcPluginGHCi" (return ())
, tcPluginSolve = \_ _ _ _ -> return $ TcPluginOk [] []
, tcPluginStop = \_ -> return ()
}
|