Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : tc-untouchables
http://hackage.haskell.org/trac/ghc/changeset/23db38b3eff4d02efdf11822512a7b4fa9f3508f >--------------------------------------------------------------- commit 23db38b3eff4d02efdf11822512a7b4fa9f3508f Author: Simon Peyton Jones <[email protected]> Date: Thu Sep 20 16:35:41 2012 +0100 Comments only >--------------------------------------------------------------- compiler/typecheck/TcSMonad.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/typecheck/TcSMonad.lhs b/compiler/typecheck/TcSMonad.lhs index 7c968e0..a216729 100644 --- a/compiler/typecheck/TcSMonad.lhs +++ b/compiler/typecheck/TcSMonad.lhs @@ -1529,7 +1529,7 @@ rewriteCtFlavor (CtGiven { ctev_evtm = old_tm }) pty_new co = do { new_ev <- newGivenEvVar pty_new new_tm -- See Note [Bind new Givens immediately] ; return (Just new_ev) } where - new_tm = mkEvCast old_tm (mkTcSymCo co) -- mkEvCase optimises ReflCo + new_tm = mkEvCast old_tm (mkTcSymCo co) -- mkEvCast optimises ReflCo rewriteCtFlavor ctev@(CtWanted { ctev_evar = evar, ctev_pred = old_pred }) new_pred co _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
