elland/haddock2
1
0
Fork 1
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

refactor lexer #2

Merged
primrose merged 13 commits from primrose/haddock2:leana8959 into dev 2025-09-26 14:44:47 +00:00
Conversation 1 Commits 13 Files changed 3 +3 -3
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 75c4817166 - Show all commits

6
src/Lexer.hs
View file

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