github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 00:42:33 +03:00
Code Issues Projects Releases Wiki Activity

Ditto for the field.

Browse Source
This commit is contained in:
Rob Rix 2015-12-15 23:24:04 -05:00
parent d174a0c8c8
commit 6b61950e6e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/Main.hs
View File

@ -18,7 +18,7 @@ import System.FilePath
data Renderer = Unified | Split
data Argument = Argument { output :: Renderer, sourceA :: FilePath, sourceB :: FilePath }
data Argument = Argument { renderer :: Renderer, sourceA :: FilePath, sourceB :: FilePath }
arguments :: Parser Argument
arguments = Argument
@ -38,7 +38,7 @@ main = do
bTerm <- parse bContents
return (replaceLeavesWithWordBranches aContents aTerm, replaceLeavesWithWordBranches bContents bTerm)
let diff = interpret comparable aTerm bTerm in
case output arguments of
case renderer arguments of
Unified -> do
output <- unified diff aContents bContents
B1.putStr output