diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Drop.hs | 1 | ||||
| -rw-r--r-- | Command/Fsck.hs | 1 | ||||
| -rw-r--r-- | Command/Sync.hs | 5 |
3 files changed, 6 insertions, 1 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs index feb89b70e..b23f81758 100644 --- a/Command/Drop.hs +++ b/Command/Drop.hs @@ -46,6 +46,7 @@ parseDropFromOption :: Parser (DeferredParse Remote) parseDropFromOption = parseRemoteOption $ strOption ( long "from" <> short 'f' <> metavar paramRemote <> help "drop content from a remote" + <> completeRemotes ) seek :: DropOptions -> CommandSeek diff --git a/Command/Fsck.hs b/Command/Fsck.hs index a522f5349..656ceb644 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -67,6 +67,7 @@ optParser desc = FsckOptions <*> optional (parseRemoteOption $ strOption ( long "from" <> short 'f' <> metavar paramRemote <> help "check remote" + <> completeRemotes )) <*> optional parseincremental <*> optional (parseKeyOptions False) diff --git a/Command/Sync.hs b/Command/Sync.hs index 4e6bf11d7..19a984300 100644 --- a/Command/Sync.hs +++ b/Command/Sync.hs @@ -70,7 +70,10 @@ data SyncOptions = SyncOptions optParser :: CmdParamsDesc -> Parser SyncOptions optParser desc = SyncOptions - <$> cmdParams desc + <$> (many $ argument str + ( metavar desc + <> completeRemotes + )) <*> invertableSwitch "commit" True ( help "avoid git commit" ) |