Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

unnecessary to view regex escape as meta; processed in escape step

  • Loading branch information...
commit ce058a50c8c4ab90b3a5a10ca29439b9ba970997 1 parent 6a2542d
@dancor dancor authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/Transf/AntiPattern.hs
View
2  src/Transf/AntiPattern.hs
@@ -108,7 +108,7 @@ regexUnitIsMeta ["\\\\", c] = isAlphaNum . chr $ phpOrd c
-- note that "." and "\x2E" in a PHP str both count as any-char for
-- preg stuff
normedStrUnitIsRegexMeta :: String -> Bool
-normedStrUnitIsRegexMeta u = any (== chr (phpOrd u)) "\\|^$*+?.()[{"
+normedStrUnitIsRegexMeta u = any (== chr (phpOrd u)) "|^$*+?.()[{"
strToArg :: String -> Either Expr b
strToArg = Left . ExprStrLit . StrLit
Please sign in to comment.
Something went wrong with that request. Please try again.