From c4d59d32369a4b0b3c11fbb3e3c6915a0a362d89 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?L=C3=A9ana=20=E6=B1=9F?= Date: Wed, 24 Sep 2025 21:33:20 +0800 Subject: [PATCH] ref(lexer): rename MathsBracket -> MathMultiline --- src/Lexer.hs | 10 +++++----- test/Spec.hs | 4 ++-- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/Lexer.hs b/src/Lexer.hs index c2a7f01..04fa84f 100644 --- a/src/Lexer.hs +++ b/src/Lexer.hs @@ -53,8 +53,8 @@ data Token | BracketClose | MathInlineOpen | MathInlineClose - | MathsBracketOpen - | MathsBracketClose + | MathMultilineOpen + | MathMultilineClose | NumericEntity Int | Module Text | QuoteOpen @@ -85,7 +85,7 @@ lexText = go toks <- choice $ Parsec.try - <$> [ mathsBracket + <$> [ mathMultiline , mathInline , escape -- maths go before escape to avoid mismatch , headers @@ -242,8 +242,8 @@ labeledLink = do , (pos8, LabeledLinkClose) ] -mathsBracket :: Lexer -mathsBracket = delimited "\\[" "\\]" MathsBracketOpen MathsBracketClose +mathMultiline :: Lexer +mathMultiline = delimited "\\[" "\\]" MathMultilineOpen MathMultilineClose mathInline :: Lexer mathInline = delimited "\\(" "\\)" MathInlineOpen MathInlineClose diff --git a/test/Spec.hs b/test/Spec.hs index 21f5d36..7ddbcff 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -93,9 +93,9 @@ anchors = maths :: IO () maths = do "\\[some math\\]" - `shouldLexTo` [ (1, 1, MathsBracketOpen) + `shouldLexTo` [ (1, 1, MathMultilineOpen) , (1, 3, Token "some math") - , (1, 12, MathsBracketClose) + , (1, 12, MathMultilineClose) ] "\\(other maths\\)" `shouldLexTo` [ (1, 1, MathInlineOpen)