diff options
Diffstat (limited to 'src/Parser.hs')
| -rw-r--r-- | src/Parser.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index 1952cde..af9aa70 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -27,9 +27,13 @@ emoticon = satisfy isEmoticon where isEmoticon c = ('\128512' <= c && c <= '\128591') mathematicalOperator :: Parser Char -mathematicalOperator = satisfy isMathematicalUnicodeBlock - <|> oneOf "¬₀₁₂₃₄₅₆₇₈₉₊₋₌₍₎⁰¹²³⁴⁵⁶⁷⁸⁹⁺⁻⁼⁽⁾" - where isMathematicalUnicodeBlock c = ('∀' <= c && c <= '⋿') +mathematicalOperator = + satisfy isMathematicalUnicodeBlock + <|> satisfy isMiscMathematicalAUnicodeBlock + <|> oneOf "¬₀₁₂₃₄₅₆₇₈₉₊₋₌₍₎⁰¹²³⁴⁵⁶⁷⁸⁹⁺⁻⁼⁽⁾" + where + isMathematicalUnicodeBlock c = ('∀' <= c && c <= '⋿') + isMiscMathematicalAUnicodeBlock c = ('⟀' <= c && c <= '⟯') mathematicalArrow :: Parser Char mathematicalArrow = satisfy isMathematicalOperator |