[commit: ghc] wip/rae-new-coercible: Remove stale comment to self (b9ffbc6)

git at git.haskell.org git at git.haskell.org
Mon Dec 8 03:42:41 UTC 2014


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/rae-new-coercible
Link       : http://ghc.haskell.org/trac/ghc/changeset/b9ffbc61ed9e27a785c4281564b8701a864ce37d/ghc

>---------------------------------------------------------------

commit b9ffbc61ed9e27a785c4281564b8701a864ce37d
Author: Richard Eisenberg <eir at cis.upenn.edu>
Date:   Sun Dec 7 14:11:41 2014 -0500

    Remove stale comment to self


>---------------------------------------------------------------

b9ffbc61ed9e27a785c4281564b8701a864ce37d
 compiler/typecheck/TcInteract.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcInteract.lhs b/compiler/typecheck/TcInteract.lhs
index c95ebe2..51ce56b 100644
--- a/compiler/typecheck/TcInteract.lhs
+++ b/compiler/typecheck/TcInteract.lhs
@@ -1628,7 +1628,7 @@ doTopReactFunEq work_item@(CFunEqCan { cc_ev = old_ev, cc_fun = fam_tc
 
     try_improvement
       | Just ops <- isBuiltInSynFamTyCon_maybe fam_tc
-      = do { inert_eqs <- getInertEqs -- TODO (RAE): I was here. Are the roles OK?
+      = do { inert_eqs <- getInertEqs
            ; let eqns = sfInteractTop ops args (lookupFlattenTyVar inert_eqs fsk)
            ; mapM_ (emitNewDerivedEq loc) eqns }
       | otherwise



More information about the ghc-commits mailing list