Commit c99860f1 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Simplified API for GHC.setContext

parent 1aa636c5
......@@ -12,7 +12,7 @@ main = do
GHC.verbosity = 0}
_ <- GHC.setSessionDynFlags df1
-- begin reset
GHC.setContext [] []
GHC.setContext []
GHC.setTargets []
_ <- GHC.load GHC.LoadAllTargets
return ()
......@@ -41,7 +41,7 @@ main = do
-- set context to module "A"
mg <- getModuleGraph
let [mod] = [ ms_mod m | m <- mg, moduleNameString (ms_mod_name m) == "A" ]
setContext [mod] []
setContext [IIModule mod]
liftIO $ hFlush stdout -- make sure things above are printed before
-- interactive output
r <- runStmt "main" RunToCompletion
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment