From: simonpj <unknown>
Date: Thu, 20 Jan 2005 12:02:06 +0000 (+0000)
Subject: [project @ 2005-01-20 12:02:06 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1218
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=850ee50c9e5e7bf0fde21f484c5f2f88fcb738a8;p=ghc-hetmet.git

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

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