diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-08-20 17:18:21 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-08-20 17:21:14 -0400 |
| commit | 2c7e74b116e10112e9f4f5d9f22a93ae7e4bee9e (patch) | |
| tree | 8a1665fa6cdb115fbaa57210a882aa4fdb6124aa /Command | |
| parent | 18067656af26fea271a0b75246cbf71af9c72114 (diff) | |
make sync --no-content be accepted
It's the default, but this is a step toward changing that default later..
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Sync.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/Sync.hs b/Command/Sync.hs index 46a03a4de..87a0fbcf6 100644 --- a/Command/Sync.hs +++ b/Command/Sync.hs @@ -47,6 +47,7 @@ import Annex.AutoMerge import Annex.Ssh import Annex.BloomFilter import Utility.Bloom +import Utility.OptParse import Control.Concurrent.MVar import qualified Data.Map as M @@ -67,9 +68,8 @@ data SyncOptions = SyncOptions optParser :: CmdParamsDesc -> Parser SyncOptions optParser desc = SyncOptions <$> cmdParams desc - <*> switch - ( long "content" - <> help "also transfer file contents" + <*> invertableSwitch "content" False + ( help "also transfer file contents" ) <*> optional (strOption ( long "message" <> short 'm' <> metavar "MSG" |