style(lexer): make binding naming consistent

test/Spec.hs

@@ -19,8 +19,8 @@ main = hspec $ do
         describe "minimal" do
             it "handles unicode" unicode
             it "escapes" escaping
-            it "maths" maths
-            it "anchors" anchors
+            it "maths" math
+            it "anchors" anchor
             it "space chars" space
             it "bare string" someString
             it "emphasis" emphatic
@@ -84,14 +84,14 @@ labeledLink =
                       , (1, 35, LabeledLinkClose)
                       ]
 
-anchors :: Expectation
-anchors =
+anchor :: Expectation
+anchor =
     "#myAnchor#"
         `shouldLexTo` [ (1, 1, Anchor "myAnchor")
                       ]
 
-maths :: IO ()
-maths = do
+math :: IO ()
+math = do
     "\\[some math\\]"
         `shouldLexTo` [ (1, 1, MathMultilineOpen)
                       , (1, 3, Token "some math")