From 2c7e74b116e10112e9f4f5d9f22a93ae7e4bee9e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 20 Aug 2015 17:18:21 -0400 Subject: make sync --no-content be accepted It's the default, but this is a step toward changing that default later.. --- Command/Sync.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Command/Sync.hs') 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" -- cgit v1.2.3