diff options
Diffstat (limited to 'testsuite/tests/ghc-api/apirecomp001/myghc.hs')
| -rw-r--r-- | testsuite/tests/ghc-api/apirecomp001/myghc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/ghc-api/apirecomp001/myghc.hs b/testsuite/tests/ghc-api/apirecomp001/myghc.hs index 79b02f8b86..39545c937d 100644 --- a/testsuite/tests/ghc-api/apirecomp001/myghc.hs +++ b/testsuite/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 |