projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change a use of xargs to "$(XARGS)" $(XARGS_OPTS)
[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
-- 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
top `seq` (gmapT (everywhere'But q f) top)
everywhereButM :: Monad m => GenericQ Bool -> GenericM m -> GenericM m