Generalise the type of synthesize, as suggested by Trac #1571

I have not looked at the details, but the type checker is happy with the
more general type, and more general types are usually a Good Thing.

diff --git a/Data/Generics/Schemes.hs b/Data/Generics/Schemes.hs
index 7985457..f23bcd0 100644 (file)
--- a/Data/Generics/Schemes.hs
+++ b/Data/Generics/Schemes.hs
@@ -122,7 +122,7 @@ something = everything orElse
 --   2nd argument o is for reduction of results from subterms;
 --   3rd argument f updates the synthesised data according to the given term
 --
-synthesize :: s  -> (s -> s -> s) -> GenericQ (s -> s) -> GenericQ s
+synthesize :: s  -> (t -> s -> s) -> GenericQ (s -> t) -> GenericQ t
 synthesize z o f x = f x (foldr o z (gmapQ (synthesize z o f) x))