joshuaclayton/unused
1
1
Fork 0
mirror of https://github.com/joshuaclayton/unused.git synced 2024-08-15 15:50:26 +03:00
Code Issues Projects Releases Wiki Activity

Fully extract parseSearchRunner

Browse Source
This commit is contained in:
Joshua Clayton 2016-05-07 16:07:43 -04:00
parent 9436f733b2
commit 4fc984ce75
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/Main.hs
View File

@ -45,8 +45,10 @@ parseOptions :: Parser Options
parseOptions =
Options
<$> parseSearchRunner
(short 'P' <> long "no-progress" <> help "Don't display progress during analysis")
parseSearchRunner :: Mod FlagFields SearchRunner -> Parser SearchRunner
parseSearchRunner :: Parser SearchRunner
parseSearchRunner =
flag SearchWithProgress SearchWithoutProgress
flag SearchWithProgress SearchWithoutProgress $
short 'P'
<> long "no-progress"
<> help "Don't display progress during analysis"