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

Compare commits

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

1 commit
c4d59d3236 ... bd07547e26

Author SHA1 Message Date
Léana 江
bd07547e26
ref(lexer): rename MathsBracket -> MathsMultiline 2025-09-24 21:33:20 +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
| MathMultilineOpen | MathsMultilineOpen
| MathMultilineClose | MathsMultilineClose
| NumericEntity Int | NumericEntity Int
| Module Text | Module Text
| QuoteOpen | QuoteOpen
@ -243,7 +243,7 @@ labeledLink = do
] ]
mathMultiline :: Lexer mathMultiline :: Lexer
mathMultiline = delimited "\\[" "\\]" MathMultilineOpen MathMultilineClose mathMultiline = delimited "\\[" "\\]" MathsMultilineOpen MathsMultilineClose
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, MathMultilineOpen) `shouldLexTo` [ (1, 1, MathsMultilineOpen)
, (1, 3, Token "some math") , (1, 3, Token "some math")
, (1, 12, MathMultilineClose) , (1, 12, MathsMultilineClose)
] ]
"\\(other maths\\)" "\\(other maths\\)"
`shouldLexTo` [ (1, 1, MathInlineOpen) `shouldLexTo` [ (1, 1, MathInlineOpen)