X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnBinds.lhs;h=3c27d75f93caca4d0b69a64631aa061f91c89d43;hb=f3998ec18fd0f3d56b377d41e2a2958aaf9460ec;hp=8e5cf9a11bc45e38c60d2d14e14ce254e1b80990;hpb=f0e42a460a3bb4857f3c4bfa92dd134fcf409849;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnBinds.lhs b/ghc/compiler/rename/RnBinds.lhs
index 8e5cf9a..3c27d75 100644
--- a/ghc/compiler/rename/RnBinds.lhs
+++ b/ghc/compiler/rename/RnBinds.lhs
@@ -410,12 +410,12 @@ reconstructRec cycles edges mbi
     reconstructCycle :: FlatMonoBindsInfo -> Cycle -> RenamedHsBinds
 
     reconstructCycle mbi2 cycle
-      = BIND [(binds,sigs) | (vertex, _, _, binds, sigs) <- mbi2, vertex `is_elem` cycle]
-		  _TO_ relevant_binds_and_sigs ->
+      = case [(binds,sigs) | (vertex, _, _, binds, sigs) <- mbi2, vertex `is_elem` cycle]
+		  of { relevant_binds_and_sigs ->
 
-	BIND (unzip relevant_binds_and_sigs) _TO_ (binds, sig_lists) ->
+	case (unzip relevant_binds_and_sigs) of { (binds, sig_lists) ->
 
-	BIND (foldr AndMonoBinds EmptyMonoBinds binds) _TO_ this_gp_binds ->
+	case (foldr AndMonoBinds EmptyMonoBinds binds) of { this_gp_binds ->
 	let
 	    this_gp_sigs	= foldr1 (++) sig_lists
 	    have_sigs		= not (null sig_lists)
@@ -424,7 +424,7 @@ reconstructRec cycles edges mbi
 		-- e.g. "have_sigs [[], [], []]" ???????????
 	in
 	mk_binds this_gp_binds this_gp_sigs (isCyclic edges cycle) have_sigs
-	BEND BEND BEND
+	}}}
       where
 	is_elem = isIn "reconstructRec"