OR not AND.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
ezyang · Sep 28, 2012 · 96f76fd · 96f76fd
1 parent 90fcc3b
commit 96f76fd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/GhcPlugins/Template/Pass.hs b/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