From bd0af91813a09878921f5bd699c4ee79c7906a66 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Mon, 20 Aug 2007 22:06:26 +0000
Subject: [PATCH] Fixed a slightly confusing inner predicate name for findMeta

---
 Types.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Types.hs b/Types.hs
index 44f3868..71670b1 100644
--- a/Types.hs
+++ b/Types.hs
@@ -290,10 +290,10 @@ makeConstant m n = A.Literal m A.Int $ A.IntLiteral m (show n)
 
 -- | Find the first Meta value in some part of the AST.
 findMeta :: (Data t, Typeable t) => t -> Meta
-findMeta e = head $ gmapQ (mkQ emptyMeta findMeta) e
+findMeta e = head $ gmapQ (mkQ emptyMeta findMeta') e
   where
-    findMeta :: Meta -> Meta
-    findMeta m = m
+    findMeta' :: Meta -> Meta
+    findMeta' m = m
 
 -- | Is a conversion between two types precise (i.e. do you need to specify
 -- ROUND or TRUNC when doing it)?