github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +03:00
Code Issues Projects Releases Wiki Activity

Rename parserForFilepath -> parserWithCost

Browse Source
This commit is contained in:
Rick Winfrey 2016-11-03 16:47:50 -05:00
parent 86b9e06417
commit 277e0d2c0e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Parse.hs
View File

@ -29,7 +29,7 @@ run args@Arguments{..} = do
sources <- sequence $ readAndTranscodeFile <$> filePaths
let sourceBlobs = Source.SourceBlob <$> sources <*> pure mempty <*> filePaths <*> pure (Just Source.defaultPlainBlob)
let parsers = parserForFilepath <$> filePaths
let parsers = parserWithCost <$> filePaths
let parsersAndBlobs = zip parsers sourceBlobs
terms <- traverse (\(parser, sourceBlob) -> parser sourceBlob) parsersAndBlobs
@ -38,9 +38,9 @@ run args@Arguments{..} = do
pure ()
-- | Return the parser that should be used for a given path.
parserForFilepath :: FilePath -> Parser (Syntax Text) (Record '[Cost, Range, Category, SourceSpan])
parserForFilepath path blob = decorateTerm termCostDecorator <$> parserForType (toS (takeExtension path)) blob
-- | Return a parser that decorates with the cost of a term and its children.
parserWithCost :: FilePath -> Parser (Syntax Text) (Record '[Cost, Range, Category, SourceSpan])
parserWithCost path blob = decorateTerm termCostDecorator <$> parserForType (toS (takeExtension path)) blob
-- | Return a parser based on the file extension (including the ".").
parserForType :: Text -> Parser (Syntax Text) (Record '[Range, Category, SourceSpan])