git.iko.soy/elk
on master help sign in
Fix #1040, backticks no longer allowed in symbols
2d2b193Evan Czaplicki
src/Parse/Helpers.hs+1−1
compare with master
unifiedsplit
@@ -118,7 +118,7 @@ anyOp =
118
118
119symOp :: IParser String
119symOp :: IParser String
120symOp =
120symOp =
121− do op <- many1 (satisfy Help.isSymbol)
121+ do op <- many1 (satisfy (\c -> Help.isSymbol c && c /= '`'))
122 guard (op `notElem` [ "=", "..", "->", "--", "|", ":" ])
122 guard (op `notElem` [ "=", "..", "->", "--", "|", ":" ])
123 case op of
123 case op of
124 "." -> notFollowedBy lower >> return op
124 "." -> notFollowedBy lower >> return op