[project @ 2003-06-25 16:24:56 by simonpj]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsExpr.lhs

diff --git a/ghc/compiler/deSugar/DsExpr.lhs b/ghc/compiler/deSugar/DsExpr.lhs
index f9d0a6c..2865f94 100644 (file)
--- a/ghc/compiler/deSugar/DsExpr.lhs
+++ b/ghc/compiler/deSugar/DsExpr.lhs
@@ -629,7 +629,7 @@ dsDo do_or_lc stmts ids result_ty
            returnDs (mkIfThenElse expr2 rest 
                                   (App (App fail_id (Type b_ty)) core_msg))
     
-       go (LetStmt binds : stmts )
+       go (LetStmt binds : stmts)
          = go stmts            `thenDs` \ rest   ->
            dsLet binds rest