primrose/haddock2
1
0
Fork 0
forked from elland/haddock2
Code Pull requests Activity

ref(lexer): rename MathsBracket -> MathsMultiline

Browse source
This commit is contained in:
Primrose 2025-09-24 21:33:20 +08:00
parent 6ec47dad04
commit bd07547e26
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/Lexer.hs
View file

@ -53,8 +53,8 @@ data Token
| BracketClose
| MathInlineOpen
| MathInlineClose
| MathsBracketOpen
| MathsBracketClose
| MathsMultilineOpen
| MathsMultilineClose
| 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 "\\[" "\\]" MathsMultilineOpen MathsMultilineClose
mathInline :: Lexer
mathInline = delimited "\\(" "\\)" MathInlineOpen MathInlineClose

4
test/Spec.hs
View file

@ -93,9 +93,9 @@ anchors =
maths :: IO ()
maths = do
"\\[some math\\]"
`shouldLexTo` [ (1, 1, MathsBracketOpen)
`shouldLexTo` [ (1, 1, MathsMultilineOpen)
, (1, 3, Token "some math")
, (1, 12, MathsBracketClose)
, (1, 12, MathsMultilineClose)
]
"\\(other maths\\)"
`shouldLexTo` [ (1, 1, MathInlineOpen)