From: panne <unknown>
Date: Fri, 14 Feb 2003 19:21:57 +0000 (+0000)
Subject: [project @ 2003-02-14 19:21:57 by panne]
X-Git-Tag: Approx_11550_changesets_converted~1159
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5ee05a2b6c422f9fb4bcec184de9fdb49b82e43f;p=ghc-hetmet.git

[project @ 2003-02-14 19:21:57 by panne]
Not sure if this fix is correct, but at least this module compiles
again...
---

diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs
index 89dc247..2710980 100644
--- a/ghc/compiler/typecheck/TcRnDriver.lhs
+++ b/ghc/compiler/typecheck/TcRnDriver.lhs
@@ -652,7 +652,7 @@ tc_rn_src_decls ds
 		      } ;
 
 	-- If there's a splice, we must carry on
-	   Just (SpliceDecl splice_expr splice_loc, rest_ds) -> 
+	   Just (SpliceDecl splice_expr splice_loc, rest_ds) -> do {
 #ifndef GHCI
 	failWithTc (text "Can't do a top-level splice; need a bootstrapped compiler")
 #else
@@ -673,7 +673,7 @@ tc_rn_src_decls ds
 	return (tc_envs, src_fvs1 `plusFV` src_fvs2)
     }
 #endif /* GHCI */
-    }}
+    }}}
 \end{code}