[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