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

Put the diff first

Browse Source
This commit is contained in:
Matt Diephouse 2016-01-14 14:56:00 -05:00
parent 78852e4041
commit fa68f78c39
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

@ -47,7 +47,7 @@ main = do
let parse = (P.parserForType . T.pack . takeExtension) sourceAPath
terms <- sequence $ parse <$> sources
let replaceLeaves = breakDownLeavesByWord <$> sources
printDiff arguments (runJoin sources) (uncurry diff $ runJoin $ replaceLeaves <*> terms)
printDiff arguments (uncurry diff $ runJoin $ replaceLeaves <*> terms) (runJoin sources)
where opts = info (helper <*> arguments)
(fullDesc <> progDesc "Diff some things" <> header "semantic-diff - diff semantically")
@ -56,8 +56,8 @@ diff :: (Eq a, Eq annotation, Categorizable annotation) => Term a annotation ->
diff = interpret comparable
-- | Print a diff, given the command-line arguments, source files, and terms.
printDiff :: Arguments -> (Source Char, Source Char) -> Diff T.Text Info -> IO ()
printDiff arguments (aSource, bSource) diff = case format arguments of
printDiff :: Arguments -> Diff T.Text Info -> (Source Char, Source Char) -> IO ()
printDiff arguments diff (aSource, bSource) = case format arguments of
Unified -> do
rendered <- unified diff aSource bSource
B1.putStr rendered