From 5ee05a2b6c422f9fb4bcec184de9fdb49b82e43f Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Fri, 14 Feb 2003 19:21:57 +0000
Subject: [PATCH] [project @ 2003-02-14 19:21:57 by panne] Not sure if this
 fix is correct, but at least this module compiles again...

---
 ghc/compiler/typecheck/TcRnDriver.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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}
 
 
-- 
1.7.10.4