diff --git a/src/Lexer.hs b/src/Lexer.hs
index 3e98cce..273a0fe 100644
--- a/src/Lexer.hs
+++ b/src/Lexer.hs
@@ -221,7 +221,7 @@ link :: Lexer
 link = do
     pos <- getPosition
     l <- linkRaw
-    -- "unconsume" the last token
+    -- register the position of the last token
     pos' <- flip incSourceColumn (-1) <$> getPosition
     pure $ (pos, LinkOpen) : l <> [(pos', LinkClose)]