Permalink
Browse files

OR not AND.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
  • Loading branch information...
1 parent 90fcc3b commit 96f76fd77183b898fcda48edc7b6c468c40a5161 @ezyang committed Sep 28, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 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

0 comments on commit 96f76fd

Please sign in to comment.