github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-06 06:46:07 +03:00
Code Issues Projects Releases Wiki Activity

Filter out missing blobs.

Browse Source
This commit is contained in:
Rob Rix 2017-05-30 11:24:25 -04:00
parent 91ffd5d621
commit 07588d41b1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/SemanticCmdLine.hs
View File

@ -14,6 +14,7 @@ import Prologue hiding (concurrently, fst, snd, readFile)
import qualified Data.ByteString as B
import qualified Paths_semantic_diff as Library (version)
import qualified Semantic.Task as Task
import Source (nonExistentBlob)
import System.Directory
import System.Environment
import System.FilePath.Posix (takeFileName, (-<.>))
@ -61,7 +62,7 @@ runParse ParseArguments{..} = do
ParsePaths paths -> traverse (uncurry readFile) paths
ParseCommit sha paths -> readFilesAtSHA gitDir alternateObjectDirs paths sha
ParseStdin -> readBlobsFromHandle stdin
Task.runTask . fmap toS $ Task.distributeFoldMap (Semantic.parseAndRenderBlob parseTreeRenderer) blobs
Task.runTask . fmap toS $ Task.distributeFoldMap (Semantic.parseAndRenderBlob parseTreeRenderer) (filter (not . nonExistentBlob) blobs)
-- | A parser for the application's command-line arguments.
arguments :: FilePath -> [FilePath] -> ParserInfo Arguments