blob: 14b809bf7d66d352220cef0b28b0d9e77bb67ffb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
import qualified GHC
import System.Environment
main = do
(libdir:_) <- getArgs
GHC.runGhcT (Just libdir) $ do
-- begin initialize
df0 <- GHC.getSessionDynFlags
let df1 = df0{GHC.ghcMode = GHC.CompManager,
GHC.hscTarget = GHC.HscInterpreted,
GHC.ghcLink = GHC.LinkInMemory,
GHC.verbosity = 0}
_ <- GHC.setSessionDynFlags df1
-- begin reset
GHC.setContext [] []
GHC.setTargets []
_ <- GHC.load GHC.LoadAllTargets
return ()
|
