1
1
mirror of https://github.com/github/semantic.git synced 2024-12-23 23:11:50 +03:00

Use <=< to simplify parseSExpression

This commit is contained in:
Rick Winfrey 2017-03-29 12:41:08 -07:00
parent 106a9e84e1
commit 82431ce34b

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