Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/4857e8bf0487177efa11bc061cf5344df99d64dc

>---------------------------------------------------------------

commit 4857e8bf0487177efa11bc061cf5344df99d64dc
Author: Simon Marlow <[email protected]>
Date:   Thu Feb 16 09:50:10 2012 +0000

    fix failure in apirecomp001 (IIModule type changed)

>---------------------------------------------------------------

 tests/ghc-api/apirecomp001/myghc.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/tests/ghc-api/apirecomp001/myghc.hs 
b/tests/ghc-api/apirecomp001/myghc.hs
index 79b02f8..39545c9 100644
--- a/tests/ghc-api/apirecomp001/myghc.hs
+++ b/tests/ghc-api/apirecomp001/myghc.hs
@@ -40,7 +40,7 @@ main = do
 
     -- set context to module "A"
     mg <- getModuleGraph
-    let [mod] = [ ms_mod m | m <- mg, moduleNameString (ms_mod_name m) == "A" ]
+    let [mod] = [ ms_mod_name m | m <- mg, moduleNameString (ms_mod_name m) == 
"A" ]
     setContext [IIModule mod]
     liftIO $ hFlush stdout  -- make sure things above are printed before
                             -- interactive output



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to