diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-07-09 01:02:27 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-07-09 01:02:27 -0400 |
commit | 32274462439c44972f5cec1054b623ad4396909f (patch) | |
tree | 632142c0be37b9647d863341eb4bd2f2c93bf705 /Command | |
parent | 8d691787503262e7c5c768cd7eeb24e1ecf873f4 (diff) |
finalOpt is the same as optional
Diffstat (limited to 'Command')
-rw-r--r-- | Command/Drop.hs | 2 | ||||
-rw-r--r-- | Command/Fsck.hs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs index b569491bb..e246af342 100644 --- a/Command/Drop.hs +++ b/Command/Drop.hs @@ -46,7 +46,7 @@ optParser desc = DropOptions <*> parseKeyOptions False parseDropFromOption :: Parser (Maybe RemoteName) -parseDropFromOption = finalOpt $ strOption +parseDropFromOption = optional $ strOption ( long "from" <> short 'f' <> metavar paramRemote diff --git a/Command/Fsck.hs b/Command/Fsck.hs index 486b686d5..885ce17dd 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -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" |