[project @ 2003-02-14 19:21:57 by panne]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcRnDriver.lhs

diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs
index 89dc247..2710980 100644 (file)
--- 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}