Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-defer
http://hackage.haskell.org/trac/ghc/changeset/e7c534aea75a1138212bf856d4bd232a0483d9ef >--------------------------------------------------------------- commit e7c534aea75a1138212bf856d4bd232a0483d9ef Author: Jose Pedro Magalhaes <[email protected]> Date: Thu Dec 22 11:08:47 2011 +0000 Less duplication in deferred error warnings >--------------------------------------------------------------- compiler/typecheck/TcErrors.lhs | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/compiler/typecheck/TcErrors.lhs b/compiler/typecheck/TcErrors.lhs index 6076e25..b803edb 100644 --- a/compiler/typecheck/TcErrors.lhs +++ b/compiler/typecheck/TcErrors.lhs @@ -214,7 +214,9 @@ deferCt ct errs = -- Only set the evidence binder for Wanteds case ct_flavor of Wanted loc -> do { - warnTcS loc True (text "Deferring error" $$ errorMsg) + --warnTcS loc True (text "Deferring error" $$ errorMsg) + wrapWarnTcS $ setSrcSpan (ctLocSpan loc) $ + addWarnTc (text "Deferring error" $$ errorMsg) ; setEvBind ct_id (EvDelayedError ct_type errorFS) ct_flavor } _ -> return ct_flavor where ct_id = cc_id ct _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
