From 850ee50c9e5e7bf0fde21f484c5f2f88fcb738a8 Mon Sep 17 00:00:00 2001 From: simonpj Date: Thu, 20 Jan 2005 12:02:06 +0000 Subject: [PATCH] [project @ 2005-01-20 12:02:06 by simonpj] Fix syntax error --- ghc/compiler/iface/TcIface.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ghc/compiler/iface/TcIface.lhs b/ghc/compiler/iface/TcIface.lhs index e957e50..1061f1c 100644 --- a/ghc/compiler/iface/TcIface.lhs +++ b/ghc/compiler/iface/TcIface.lhs @@ -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 -- 1.7.10.4