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

diff functions take tuples of sources now

Browse Source
This commit is contained in:
joshvera 2016-01-20 10:39:44 -05:00
parent 99f8fb18a4
commit 263ea09dd2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/Main.hs
View File

@ -51,10 +51,10 @@ main = do
printDiff :: Arguments -> (Source Char, Source Char) -> (Term T.Text Info, Term T.Text Info) -> IO ()
printDiff arguments (aSource, bSource) (aTerm, bTerm) = case renderer arguments of
Unified -> do
rendered <- unified diff aSource bSource
rendered <- unified diff (aSource, bSource)
B1.putStr rendered
Split -> do
rendered <- split diff aSource bSource
rendered <- split diff (aSource, bSource)
case output arguments of
Just path -> do
isDir <- doesDirectoryExist path
@ -63,7 +63,7 @@ printDiff arguments (aSource, bSource) (aTerm, bTerm) = case renderer arguments
else path
IO.withFile outputPath IO.WriteMode (write rendered)
Nothing -> TextIO.putStr rendered
Patch -> putStr $ PatchOutput.patch diff aSource bSource
Patch -> putStr $ PatchOutput.patch diff (aSource, bSource)
where diff = interpret comparable aTerm bTerm
write rendered h = TextIO.hPutStr h rendered