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

ref(lexer): simplify labeledLink

Browse source
This commit is contained in:
Primrose 2025-09-24 22:31:59 +08:00
parent 29c015b793
commit 2597e693f1
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
1 changed files with 5 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/Lexer.hs
View file

@ -226,20 +226,12 @@ link = do
labeledLink :: Lexer labeledLink :: Lexer
labeledLink = do labeledLink = do
pos <- getPosition open <- located $ LabeledLinkOpen <$ "<"
void $ string "<" linkRes <- linkRaw
link' <- linkRaw labelRes <- located $ Token <$> anyUntil ">"
pos7 <- getPosition close <- located $ LabeledLinkClose <$ ">"
label' <- anyUntil $ string ">"
pos8 <- getPosition
void $ ">"
pure $ pure $
(pos, LabeledLinkOpen) open : linkRes <> [ labelRes , close ]
: link'
<> [ (pos7, Token label')
, (pos8, LabeledLinkClose)
]
mathMultiline :: Lexer mathMultiline :: Lexer
mathMultiline = delimited "\\[" "\\]" MathMultilineOpen MathMultilineClose mathMultiline = delimited "\\[" "\\]" MathMultilineOpen MathMultilineClose