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

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)