1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00

Update CommandSpec & SpecHelpers for Maybe returns.

This commit is contained in:
Rob Rix 2017-05-30 10:25:22 -04:00
parent f360b25d16
commit 25b89ada33
2 changed files with 3 additions and 3 deletions

View File

@ -143,7 +143,7 @@ data Fixture = Fixture { shas :: Both String, expectedBlobs :: [Both SourceBlob]
fetchDiffsOutput :: (Object -> Text) -> FilePath -> String -> String -> [(FilePath, Maybe Language)] -> IO Summaries
fetchDiffsOutput f gitDir sha1 sha2 filePaths = do
blobPairs <- runCommand $ readFilesAtSHAs gitDir [] filePaths (both sha1 sha2)
runTask $ distributeFoldMap (Semantic.parseDiffAndRenderBlobPair Renderer.ToCDiffRenderer) blobPairs
fromMaybe mempty <$> runTask (distributeFoldMap (Semantic.parseDiffAndRenderBlobPair Renderer.ToCDiffRenderer) blobPairs)
-- Diff Summaries payloads look like this:
-- {

View File

@ -27,13 +27,13 @@ import Term
diffFilePaths :: Both FilePath -> IO ByteString
diffFilePaths paths = do
blobs <- traverse readFile paths
runTask $ parseDiffAndRenderBlobPair SExpressionDiffRenderer blobs
fromMaybe mempty <$> runTask (parseDiffAndRenderBlobPair SExpressionDiffRenderer blobs)
-- | Returns an s-expression parse tree for the specified FilePath.
parseFilePath :: FilePath -> IO ByteString
parseFilePath path = do
blob <- readFile path
runTask $ parseAndRenderBlob SExpressionTermRenderer blob
runTask (parseAndRenderBlob SExpressionTermRenderer blob)
-- | Read a file to a SourceBlob.
--