github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 14:54:16 +03:00
Code Issues Projects Releases Wiki Activity

Use <=< to simplify parseSExpression

Browse Source
This commit is contained in:
Rick Winfrey 2017-03-29 12:41:08 -07:00
parent 106a9e84e1
commit 82431ce34b
1 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/ParseCommand.hs
View File

@ -66,19 +66,10 @@ instance ToJSON ParseJSON where
toJSON IndexProgram{..} = object [ "filePath" .= filePath, "programNodes" .= programNodes ]
parseSExpression :: Arguments -> IO ByteString
parseSExpression args@Arguments{..} =
case commitSha of
Just commitSha' -> do
-- | No matter if debugging is enabled or not, SExpression output cannot show source text, so the termSourceTextDecorator is disabled by default.
terms <- traverse (\sourceBlob@SourceBlob{..} -> parseWithDecorator (termSourceTextDecorator False source) path sourceBlob) =<< sourceBlobs args
return $ printTerms TreeOnly terms
Nothing -> do
terms <- for filePaths
(\filePath -> do
source <- readAndTranscodeFile filePath
let sourceBlob = Source.SourceBlob source mempty filePath (Just Source.defaultPlainBlob)
parseWithDecorator (termSourceTextDecorator False source) filePath sourceBlob)
return $ printTerms TreeOnly terms
parseSExpression =
-- No matter if debugging is enabled or not, SExpression output cannot show source text, so the termSourceTextDecorator is disabled by default.
return . printTerms TreeOnly <=< parse <=< sourceBlobs
where parse = traverse (\sourceBlob@SourceBlob{..} -> parseWithDecorator (termSourceTextDecorator False source) path sourceBlob)
parseIndex :: Arguments -> IO ByteString
parseIndex args@Arguments{..} = fmap (toS . encode) $ buildProgramNodes IndexProgram algebra (termSourceTextDecorator debug) =<< sourceBlobs args