elland/haddock2
1
0
Fork 1
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

Compare commits

base: elland:bd07547e26b167f1907cbcb66ea39e9d6fb346ec
Branches Tags
elland:dev
elland:pictures
elland:reduce-try-usage
elland:nixify
elland:tentative-change-to-lexing-order
elland:runner
elland:main
..
compare: elland:c4d59d32369a4b0b3c11fbb3e3c6915a0a362d89
Branches Tags
elland:pictures
elland:reduce-try-usage
elland:nixify
elland:dev
elland:tentative-change-to-lexing-order
elland:runner
elland:main

1 commit
bd07547e26 ... c4d59d3236

Author SHA1 Message Date
Léana 江
c4d59d3236
ref(lexer): rename MathsBracket -> MathMultiline 2025-09-24 21:35:21 +08:00
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Lexer.hs
View file

@ -53,8 +53,8 @@ data Token
| BracketClose | BracketClose
| MathInlineOpen | MathInlineOpen
| MathInlineClose | MathInlineClose
| MathsMultilineOpen | MathMultilineOpen
| MathsMultilineClose | MathMultilineClose
| NumericEntity Int | NumericEntity Int
| Module Text | Module Text
| QuoteOpen | QuoteOpen
@ -243,7 +243,7 @@ labeledLink = do
] ]
mathMultiline :: Lexer mathMultiline :: Lexer
mathMultiline = delimited "\\[" "\\]" MathsMultilineOpen MathsMultilineClose mathMultiline = delimited "\\[" "\\]" MathMultilineOpen MathMultilineClose
mathInline :: Lexer mathInline :: Lexer
mathInline = delimited "\\(" "\\)" MathInlineOpen MathInlineClose mathInline = delimited "\\(" "\\)" MathInlineOpen MathInlineClose

4
test/Spec.hs
View file

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