diff options
| author | panne <unknown> | 2003-02-14 19:21:57 +0000 |
|---|---|---|
| committer | panne <unknown> | 2003-02-14 19:21:57 +0000 |
| commit | 5ee05a2b6c422f9fb4bcec184de9fdb49b82e43f (patch) | |
| tree | afa13cfa5cfa0059f3b5effa34bccdaef123a5a3 | |
| parent | 5538aeebb0a92ec73552d92df3afbb70612ca56d (diff) | |
| download | haskell-5ee05a2b6c422f9fb4bcec184de9fdb49b82e43f.tar.gz | |
[project @ 2003-02-14 19:21:57 by panne]
Not sure if this fix is correct, but at least this module compiles
again...
| -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} |