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

Update CommandSpec & SpecHelpers for Maybe returns.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/CommandSpec.hs
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 :: (Object -> Text) -> FilePath -> String -> String -> [(FilePath, Maybe Language)] -> IO Summaries
fetchDiffsOutput f gitDir sha1 sha2 filePaths = do fetchDiffsOutput f gitDir sha1 sha2 filePaths = do
blobPairs <- runCommand $ readFilesAtSHAs gitDir [] filePaths (both sha1 sha2) 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: -- Diff Summaries payloads look like this:
-- { -- {

4
test/SpecHelpers.hs
View File

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