External Core lib: lots of cleanup

[ghc-hetmet.git] / utils / ext-core / Language / Core / Utils.hs

diff --git a/utils/ext-core/Language/Core/Utils.hs b/utils/ext-core/Language/Core/Utils.hs
index 3ffabf2..d5ca785 100644 (file)
--- a/utils/ext-core/Language/Core/Utils.hs
+++ b/utils/ext-core/Language/Core/Utils.hs
@@ -33,7 +33,7 @@ everywhere'But :: GenericQ Bool -> GenericT -> GenericT
 -- Guarded to let traversal cease if predicate q holds for x
 everywhere'But q f x
     | q x       = x
-    | otherwise = let top = gmapT f x in
+    | otherwise = let top = f x in
                     top `seq` (gmapT (everywhere'But q f) top)
 
 everywhereButM :: Monad m => GenericQ Bool -> GenericM m -> GenericM m