Added anchors

test/Spec.hs

@@ -19,6 +19,7 @@ main = hspec $ do
       it "handles unicode" unicode
       it "escapes" escaping
       it "maths" maths
+      it "anchors" anchors
       it "space chars" space
       it "bare string" someString
       it "emphasis" emphatic
@@ -81,6 +82,14 @@ labeledLink =
                   , (1, 35, LabeledLinkClose)
                   ]
 
+anchors :: Expectation
+anchors =
+  "#myAnchor#"
+    `shouldLexTo` [ (1, 1, Anchor)
+                  , (1, 2, Token "myAnchor")
+                  , (1, 10, Anchor)
+                  ]
+
 maths :: IO ()
 maths = do
   "\\[some math\\]"