Permalink
Browse files

pregSplitNonRegex had regexUnitIsMeta check swapped

  • Loading branch information...
1 parent 012dc1d commit 86d14367ac849d6007005ebb7931bbc84b9290d5 @dancor dancor committed Jul 6, 2010
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/Transf/AntiPattern.hs
@@ -85,8 +85,8 @@ pregSplitNonRegex = modAll $ \ a -> case a of
else transfNothing
else
if any regexUnitIsMeta sRegexUnits
- then pure . ROnlyValFunc cExplode w $ Right (arg0':args)
- else transfNothing
+ then transfNothing
+ else pure . ROnlyValFunc cExplode w $ Right (arg0':args)
else transfNothing
where
(sIsDub, sUnits) = strToUnits s

0 comments on commit 86d1436

Please sign in to comment.