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

use Alternative for parsing KeyOptions

Browse source
This commit is contained in:
Joey Hess 2015-07-09 12:44:03 -04:00
parent 94e703e8b8
commit 032e6485fa
3 changed files with 38 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Fsck.hs
View file

@ -51,7 +51,7 @@ data FsckOptions = FsckOptions
{ fsckFiles :: CmdParams
, fsckFromOption :: Maybe RemoteName
, incrementalOpt :: Maybe IncrementalOpt
, keyOptions :: KeyOptions
, keyOptions :: Maybe KeyOptions
}
data IncrementalOpt
@ -67,7 +67,7 @@ optParser desc = FsckOptions
<> help "check remote"
))
<*> optional parseincremental
<*> parseKeyOptions False
<*> optional (parseKeyOptions False)
where
parseincremental =
flag' StartIncrementalO