From 32274462439c44972f5cec1054b623ad4396909f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 9 Jul 2015 01:02:27 -0400 Subject: finalOpt is the same as optional --- Command/Drop.hs | 2 +- Command/Fsck.hs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'Command') 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" -- cgit v1.2.3