Even more unicodes

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