mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

finalOpt is the same as optional

Browse source
This commit is contained in:
Joey Hess 2015-07-09 01:02:27 -04:00
parent 463709ab2a
commit d8d1499229
3 changed files with 4 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Fsck.hs
View file

@ -59,7 +59,7 @@ data FsckOptions = FsckOptions
optParser :: CmdParamsDesc -> Parser FsckOptions
optParser desc = FsckOptions
<$> cmdParams desc
<*> finalOpt (strOption
<*> optional (strOption
( long "from"
<> short 'f'
<> metavar paramRemote
@ -75,7 +75,7 @@ optParser desc = FsckOptions
<> short 'm'
<> help "continue an incremental fsck"
)
<*> finalOpt (option (str >>= parseDuration)
<*> optional (option (str >>= parseDuration)
( long "incremental-schedule"
<> metavar paramTime
<> help "schedule incremental fscking"