From e9280d63f8e673da65cddf329c0d782e787e008e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?L=C3=A9ana=20=E6=B1=9F?= Date: Wed, 24 Sep 2025 20:51:05 +0800 Subject: [PATCH] style(lexer): pluralize moduleNames parser --- src/Lexer.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Lexer.hs b/src/Lexer.hs index 89bafc5..3e98cce 100644 --- a/src/Lexer.hs +++ b/src/Lexer.hs @@ -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]