Commit 850ee50c authored by simonpj's avatar simonpj

[project @ 2005-01-20 12:02:06 by simonpj]

Fix syntax error
parent bfd84739
......@@ -890,7 +890,7 @@ tcIfaceGlobal name
Nothing -> do
{ env <- getGblEnv
; case if_rec_types env of
; case if_rec_types env of {
Just (mod, get_type_env)
| nameIsLocalOrFrom mod name
-> do -- It's defined in the module being compiled
......@@ -900,13 +900,13 @@ tcIfaceGlobal name
Nothing -> pprPanic "tcIfaceGlobal (local): not found:"
(ppr name $$ ppr type_env) }
other -> do
; other -> do
{ mb_thing <- importDecl name -- It's imported; go get it
; case mb_thing of
Failed err -> failIfM err
Succeeded thing -> return thing
}}}}
}}}}}
tcIfaceTyCon :: IfaceTyCon -> IfL TyCon
tcIfaceTyCon IfaceIntTc = return intTyCon
......
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