Add located combinator; improved anchor matches with tests

2025-09-24 10:13:16 +02:00 · 2025-09-24 10:13:16 +02:00 · 7ae868932d
commit 7ae868932d
parent 8887476626
2 changed files with 18 additions and 9 deletions
--- a/test/Spec.hs
+++ b/test/Spec.hs
@ -54,6 +54,11 @@ modules = do
                      , (1, 18, Anchor "myAnchor")
                      ]

+    "\"OtherModule.Name\\#myAnchor\""
+        `shouldLexTo` [ (1, 1, Module)
+                      , (1, 2, Token "OtherModule.Name")
+                      , (1, 18, Anchor "myAnchor")
+                      ]
 link :: Expectation
 link =
    "[link to](http://some.website)"