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

Add runMode to SemanticDiff

Browse Source
This commit is contained in:
Rick Winfrey 2016-11-02 20:13:22 -05:00
parent eb9d00d9e2
commit 86b9e06417
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/SemanticDiff.hs
View File

@ -29,7 +29,12 @@ import Development.GitRev
main :: IO () main :: IO ()
main = do main = do
args@Arguments{..} <- programArguments =<< execParser argumentsParser args@Arguments{..} <- programArguments =<< execParser argumentsParser
case diffMode of case runMode of
Diff -> runDiff args
Parse -> Parse.run args
runDiff :: Arguments -> IO ()
runDiff args@Arguments{..} = case diffMode of
PathDiff paths -> diffPaths args paths PathDiff paths -> diffPaths args paths
CommitDiff -> diffCommits args CommitDiff -> diffCommits args