From 2597e693f13e6e0b0e3622810cc3194c442ffdba Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?L=C3=A9ana=20=E6=B1=9F?= <leana.jiang+git@icloud.com>
Date: Wed, 24 Sep 2025 22:31:59 +0800
Subject: [PATCH] ref(lexer): simplify labeledLink

---
 src/Lexer.hs | 18 +++++-------------
 1 file changed, 5 insertions(+), 13 deletions(-)

diff --git a/src/Lexer.hs b/src/Lexer.hs
index c44c0e4..7874863 100644
--- a/src/Lexer.hs
+++ b/src/Lexer.hs
@@ -226,20 +226,12 @@ link = do
 
 labeledLink :: Lexer
 labeledLink = do
-    pos <- getPosition
-    void $ string "<"
-    link' <- linkRaw
-    pos7 <- getPosition
-    label' <- anyUntil $ string ">"
-    pos8 <- getPosition
-    void $ ">"
-
+    open <- located $ LabeledLinkOpen <$ "<"
+    linkRes <- linkRaw
+    labelRes <- located $ Token <$> anyUntil ">"
+    close <- located $ LabeledLinkClose <$ ">"
     pure $
-        (pos, LabeledLinkOpen)
-            : link'
-                <> [ (pos7, Token label')
-                   , (pos8, LabeledLinkClose)
-                   ]
+        open : linkRes <> [ labelRes , close ]
 
 mathMultiline :: Lexer
 mathMultiline = delimited "\\[" "\\]" MathMultilineOpen MathMultilineClose