Improved bare link parser

2025-09-21 21:15:39 +02:00 · 2025-09-21 21:15:39 +02:00 · 7c4603528d
commit 7c4603528d
parent 82dcb6913e
2 changed files with 38 additions and 26 deletions
--- a/test/Spec.hs
+++ b/test/Spec.hs
@ -57,12 +57,14 @@ modules = do
 link :: Expectation
 link =
  "[link to](http://some.website)"
-    `shouldLexTo` [ (1, 1, BracketOpen)
+    `shouldLexTo` [ (1, 1, LinkOpen)
+                  , (1, 1, BracketOpen)
                  , (1, 2, Token "link to")
                  , (1, 9, BracketClose)
                  , (1, 10, ParenOpen)
                  , (1, 11, Token "http://some.website")
                  , (1, 30, ParenClose)
+                  , (1, 30, LinkClose)
                  ]

 labeledLink :: Expectation