Commit b32ad249 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix failure in apirecomp001 (IIModule type changed)

parent 71c20cad
......@@ -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
......
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