diff options
| -rw-r--r-- | ghc/compiler/typecheck/TcRnDriver.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs index 89dc247c32..2710980b36 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} |