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

Pass it to optional to make it optional, apparently.

Browse Source
This commit is contained in:
Rob Rix 2015-12-16 01:53:18 -05:00
parent d0c3650045
commit cd460e4567
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/Main.hs
View File

@ -26,8 +26,7 @@ arguments :: Parser Argument
arguments = Argument arguments = Argument
<$> (flag Split Unified (long "unified" <> help "output a unified diff") <$> (flag Split Unified (long "unified" <> help "output a unified diff")
<|> flag' Split (long "split" <> help "output a split diff")) <|> flag' Split (long "split" <> help "output a split diff"))
<*> (Just <$> (strOption (long "output" <> short 'o' <> help "output directory for split diffs, defaulting to stdout if unspecified")) <*> (optional $ strOption (long "output" <> short 'o' <> help "output directory for split diffs, defaulting to stdout if unspecified"))
<|> flag' Nothing (internal <> hidden))
<*> strArgument (metavar "FILE a") <*> strArgument (metavar "FILE a")
<*> strArgument (metavar "FILE b") <*> strArgument (metavar "FILE b")