From 380e4e40e2e6b7ccb18b7103acb075d80168e595 Mon Sep 17 00:00:00 2001
From: "m.niloc@gmail.com" <unknown>
Date: Sat, 11 Jul 2009 13:06:47 +0000
Subject: [PATCH] Derived Foldable instances should use Data.Foldable.foldr

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

diff --git a/compiler/typecheck/TcGenDeriv.lhs b/compiler/typecheck/TcGenDeriv.lhs
index 5ae17d7..f940e16 100644
--- a/compiler/typecheck/TcGenDeriv.lhs
+++ b/compiler/typecheck/TcGenDeriv.lhs
@@ -1475,7 +1475,7 @@ gen_Foldable_binds loc tycon
   where
     data_cons = tyConDataCons tycon
 
-    foldr_bind = L loc $ mkFunBind (L loc foldr_RDR) (map foldr_eqn data_cons)
+    foldr_bind = L loc $ mkFunBind (L loc foldable_foldr_RDR) (map foldr_eqn data_cons)
     foldr_eqn con = evalState (match_for_con z_Expr [f_Pat,z_Pat] con parts) bs_RDRs
       where 
         parts = foldDataConArgs ft_foldr con
-- 
1.7.10.4