primrose/haddock2
1
0
Fork 0
forked from elland/haddock2
Code Pull requests Activity

style(lexer): pluralize moduleNames parser

Browse source
This commit is contained in:
Primrose 2025-09-24 20:51:05 +08:00
parent 7ceb9b0277
commit 75c4817166
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Lexer.hs
View file

@ -181,8 +181,8 @@ anchors =
]
moduleName :: Parser Text
moduleName = intercalate "." . fmap Text.pack <$> upperId `sepBy1` char '.'
moduleNames :: Parser Text
moduleNames = intercalate "." . fmap Text.pack <$> upperId `sepBy1` char '.'
upperId :: Parser String
upperId = (:) <$> satisfy isUpper <*> many1 identifierChar
@ -197,7 +197,7 @@ modules :: Lexer
modules = between (char '"') (char '"') inner
where
inner = do
module_ <- located $ Module <$> moduleName
module_ <- located $ Module <$> moduleNames
mAnchor <- optionMaybe (located $ anchorHash *> (Anchor <$> anchorText))
pure $ case mAnchor of
Just anchor -> [module_, anchor]