src/Lexer.hs

@@ -93,7 +93,7 @@ lexText = go
                                 , spaceToken
                                 , link
                                 , labeledLink
-                                , modules
+                                , module_
                                 , anchor
                                 , textElement
                                 , quotes
@@ -189,15 +189,15 @@ identifierChar = satisfy (\c -> isAlphaNum c || c == '_')
 -- "Module.Name"
 -- "Module.Name#anchor"
 -- "Module.Name\#anchor" -- known as "old anchor". this has been deprecated for 9 years, thanks Ben
-modules :: Lexer
+module_ :: Lexer
-modules = between (char '"') (char '"') inner
+module_ = between (char '"') (char '"') inner
   where
     inner = do
-        module_ <- located $ Module <$> moduleNames
+        m <- located $ Module <$> moduleNames
         mAnchor <- optionMaybe (located $ anchorHash *> (Anchor <$> anchorText))
         pure $ case mAnchor of
-            Just anchor -> [module_, anchor]
+            Just anc -> [m, anc]
-            Nothing -> [module_]
+            Nothing -> [m]
 
     anchorHash :: Parser Text
     anchorHash = "#" <|> try "\\#"

test/Spec.hs

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