diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-07-09 12:44:03 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-09 12:44:03 -0400 |
| commit | 80603339ea4e8b93ef456e706ca8c4efeef341f8 (patch) | |
| tree | c7649e94a367b270afb6c584d4af2b04d4f52b7a /Command | |
| parent | 97545540a3e00bb696142c022894ac216961dc23 (diff) | |
use Alternative for parsing KeyOptions
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Fsck.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index 9ca859d95..09a3a82c9 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -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 |