Verified Commit c3c019b3 authored by Camil Staps's avatar Camil Staps 🙂

Add \* to syntax pattern matcher to match exactly *

parent c78656fb
......@@ -143,6 +143,7 @@ where
m [] [] = True
m ['%':p] [_:s] = m p s
m ['*':p] s = any (m p) (tails s)
m ['\\':'*':p] [x:s] = '*' == x && m p s
m ['\\':'w':p] [x:s] = (isAlpha x || x == '_' || x == '`') && m p s
m ['\\':'e':p] [x:s] = (isAlpha x || isDigit x || x == '_' || x == '`') && m p s
m [c:p] [x:s] = c == x && m p s
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment