[project @ 1998-02-10 14:15:51 by simonpj]

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

diff --git a/ghc/compiler/typecheck/TcMonad.lhs b/ghc/compiler/typecheck/TcMonad.lhs
index 02552da..3fe3ac5 100644 (file)
--- a/ghc/compiler/typecheck/TcMonad.lhs
+++ b/ghc/compiler/typecheck/TcMonad.lhs
@@ -278,7 +278,7 @@ addErrTc err_msg down env
     listNF_Tc ctxt down env    `thenSST` \ ctxt_msgs ->
     let
        err = addShortErrLocLine loc $
-             hang err_msg 4 (vcat (ctxt_to_use ctxt_msgs))
+             vcat (err_msg : ctxt_to_use ctxt_msgs)
     in
     writeMutVarSST errs_var (warns, errs `snocBag` err)        `thenSST_`
     returnSST ()
@@ -294,7 +294,7 @@ warnTc warn_if_true warn_msg down env
        listNF_Tc ctxt down env `thenSST` \ ctxt_msgs ->
        let
            warn = addShortWarnLocLine loc $
-                  hang warn_msg 4 (vcat (ctxt_to_use ctxt_msgs))
+                  vcat (warn_msg : ctxt_to_use ctxt_msgs)
        in
        writeMutVarSST errs_var (warns `snocBag` warn, errs)    `thenSST_`
        returnSST ()