From f5015ef7702e7bad9e34188cc5f76e6891730b3d Mon Sep 17 00:00:00 2001 From: Max Bolingbroke Date: Thu, 31 Jul 2008 01:23:50 +0000 Subject: [PATCH] Follow Digraph changes in TcBinds --- compiler/typecheck/TcBinds.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/typecheck/TcBinds.lhs b/compiler/typecheck/TcBinds.lhs index 301a42b..7890091 100644 --- a/compiler/typecheck/TcBinds.lhs +++ b/compiler/typecheck/TcBinds.lhs @@ -217,7 +217,7 @@ tc_group poly_rec top_lvl sig_fn prag_fn (Recursive, binds) thing_inside -- group at once; an earlier one may use a later one! do { traceTc (text "tc_group rec" <+> pprLHsBinds binds) ; (binds1,thing) <- bindLocalInsts top_lvl $ - go (stronglyConnComp (mkEdges sig_fn binds)) + go (stronglyConnCompFromEdgedVertices (mkEdges sig_fn binds)) ; return ([(Recursive, unionManyBags binds1)], thing) } -- Rec them all together where -- 1.7.10.4