[commit: ghc] tc-untouchables: Comments only (23db38b)

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