Permalink
Browse files

* Remove unneccessary check for the concat-many-chars case as it's

  already tested in "pos + (toEnum $ minLen ?pat) .> strLen" above.
  • Loading branch information...
1 parent 87b824e commit 6869e417704d9007157740e335d303166ba6ac81 @audreyt committed May 26, 2011
Showing with 0 additions and 2 deletions.
  1. +0 −2 src/Regex/Genex.hs
View
2 src/Regex/Genex.hs
@@ -272,8 +272,6 @@ match s@Status{ pos, flips, captureAt, captureLen }
PConcat [p] -> next p
PConcat ps
| all isOne ps -> ite (
- ((pos + toEnum (length ps)) .<= strLen)
- &&&
(bAnd [ let ?pat = p in matchOne (charAt (pos+i))
| p <- ps
| i <- [0..]

0 comments on commit 6869e41

Please sign in to comment.