Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/b5e96e0543a0865ee3a76c2cbdac06ac8317159a >--------------------------------------------------------------- commit b5e96e0543a0865ee3a76c2cbdac06ac8317159a Author: Simon Peyton Jones <[email protected]> Date: Tue Aug 2 18:01:15 2011 +0100 Simplified API for GHC.setContext >--------------------------------------------------------------- tests/driver/5313.hs | 2 +- tests/ghc-api/apirecomp001/myghc.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/driver/5313.hs b/tests/driver/5313.hs index 14b809b..5b73f11 100644 --- a/tests/driver/5313.hs +++ b/tests/driver/5313.hs @@ -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 () diff --git a/tests/ghc-api/apirecomp001/myghc.hs b/tests/ghc-api/apirecomp001/myghc.hs index ec2e4a7..3c575aa 100644 --- a/tests/ghc-api/apirecomp001/myghc.hs +++ b/tests/ghc-api/apirecomp001/myghc.hs @@ -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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
