[project @ 2003-10-27 14:07:01 by simonpj]

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

diff --git a/ghc/compiler/deSugar/Desugar.lhs b/ghc/compiler/deSugar/Desugar.lhs
index 67c6261..35083bd 100644 (file)
--- a/ghc/compiler/deSugar/Desugar.lhs
+++ b/ghc/compiler/deSugar/Desugar.lhs
@@ -84,13 +84,13 @@ deSugar hsc_env
         ; doIfSet (not (isEmptyBag warnings))
                  (printErrs warn_doc)
 
-           -- if warnings are considered errors, leave.
+       -- If warnings are considered errors, leave.
        ; if errorsFound dflags (warns, emptyBag)
           then return Nothing
-          else do {
+          else do
 
        -- Lint result if necessary
-          endPass dflags "Desugar" Opt_D_dump_ds ds_binds
+       { endPass dflags "Desugar" Opt_D_dump_ds ds_binds
 
        -- Dump output
        ; doIfSet (dopt Opt_D_dump_ds dflags)