Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Browse files

OR not AND.

Signed-off-by: Edward Z. Yang <>
  • Loading branch information...
commit 96f76fd77183b898fcda48edc7b6c468c40a5161 1 parent 90fcc3b
@ezyang authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  GhcPlugins/Template/Pass.hs
2  GhcPlugins/Template/Pass.hs
@@ -27,7 +27,7 @@ transformFunc guts x = do
else return x
shouldTransformBind guts (NonRec b _) = shouldTransform guts b
-shouldTransformBind guts (Rec bs) = and `liftM` mapM (shouldTransform guts . fst) bs
+shouldTransformBind guts (Rec bs) = or `liftM` mapM (shouldTransform guts . fst) bs
-- CoreExpr = Expr CoreBndr, which is the meat of Core. Defined in
-- 'compiler/coreSyn/CoreSyn.lhs'. The sample code here is just a
Please sign in to comment.
Something went wrong with that request. Please try again.