projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bfd8473
)
[project @ 2005-01-20 12:02:06 by simonpj]
author
simonpj
<unknown>
Thu, 20 Jan 2005 12:02:06 +0000
(12:02 +0000)
committer
simonpj
<unknown>
Thu, 20 Jan 2005 12:02:06 +0000
(12:02 +0000)
Fix syntax error
ghc/compiler/iface/TcIface.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/iface/TcIface.lhs
b/ghc/compiler/iface/TcIface.lhs
index
e957e50
..
1061f1c
100644
(file)
--- a/
ghc/compiler/iface/TcIface.lhs
+++ b/
ghc/compiler/iface/TcIface.lhs
@@
-890,7
+890,7
@@
tcIfaceGlobal name
Nothing -> do
{ env <- getGblEnv
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
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) }
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
{ 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
tcIfaceTyCon :: IfaceTyCon -> IfL TyCon
tcIfaceTyCon IfaceIntTc = return intTyCon