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

Define runDiff by composition.

Browse Source
This commit is contained in:
Rob Rix 2017-07-19 15:46:27 -04:00
parent 2cce3dd671
commit 17af42e21e
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/SemanticCmdLine.hs
View File

@ -37,9 +37,7 @@ main = do
writeToOutput = maybe B.putStr B.writeFile writeToOutput = maybe B.putStr B.writeFile
runDiff :: SomeRenderer DiffRenderer -> Either Handle [Both (FilePath, Maybe Language)] -> IO ByteString runDiff :: SomeRenderer DiffRenderer -> Either Handle [Both (FilePath, Maybe Language)] -> IO ByteString
runDiff (SomeRenderer diffRenderer) from = do runDiff (SomeRenderer diffRenderer) = Task.runTask . Semantic.diffBlobPairs diffRenderer <=< readBlobPairs
blobs <- readBlobPairs from
Task.runTask (Semantic.diffBlobPairs diffRenderer blobs)
data ParseMode = ParseStdin | ParsePaths [(FilePath, Maybe Language)] data ParseMode = ParseStdin | ParsePaths [(FilePath, Maybe Language)]
deriving Show deriving Show