diff options
Diffstat (limited to 'Command/Sync.hs')
-rw-r--r-- | Command/Sync.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Command/Sync.hs b/Command/Sync.hs index 5763709ac..6ef111bc4 100644 --- a/Command/Sync.hs +++ b/Command/Sync.hs @@ -27,7 +27,6 @@ import qualified Git import Git.Types (BlobType(..)) import qualified Types.Remote import qualified Remote.Git -import qualified Option import Types.Key import Config import Annex.ReplaceFile @@ -53,7 +52,7 @@ syncOptions :: [Option] syncOptions = [ contentOption ] contentOption :: Option -contentOption = Option.flag [] "content" "also transfer file contents" +contentOption = flagOption [] "content" "also transfer file contents" seek :: CommandSeek seek rs = do @@ -85,7 +84,7 @@ seek rs = do , map (withbranch . pullRemote) gitremotes , [ mergeAnnex ] ] - whenM (Annex.getFlag $ Option.name contentOption) $ + whenM (Annex.getFlag $ optionName contentOption) $ seekSyncContent remotes seekActions $ return $ concat [ [ withbranch pushLocal ] |