aboutsummaryrefslogtreecommitdiff
path: root/Command/Fsck.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-07-09 12:44:03 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-07-09 12:44:03 -0400
commit80603339ea4e8b93ef456e706ca8c4efeef341f8 (patch)
treec7649e94a367b270afb6c584d4af2b04d4f52b7a /Command/Fsck.hs
parent97545540a3e00bb696142c022894ac216961dc23 (diff)
use Alternative for parsing KeyOptions
Diffstat (limited to 'Command/Fsck.hs')
-rw-r--r--Command/Fsck.hs4
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