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

refactor lexer #2

Merged
primrose merged 13 commits from primrose/haddock2:leana8959 into dev 2025-09-26 14:44:47 +00:00
Conversation 1 Commits 13 Files changed 3 +5 -13
1 changed files with 5 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 2597e693f1 - Show all commits

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