Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
850ee50c
Commit
850ee50c
authored
Jan 20, 2005
by
simonpj
Browse files
[project @ 2005-01-20 12:02:06 by simonpj]
Fix syntax error
parent
bfd84739
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/iface/TcIface.lhs
View file @
850ee50c
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment