diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-26 16:25:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-26 16:25:55 -0400 |
| commit | 4f050ca9b80d0565e408137f2422e808b82cfd11 (patch) | |
| tree | 5aca9688e49dee8915a962de4baf4c305ccbfa9e /Command/Sync.hs | |
| parent | 541178b499d084e4041ae4b9d62bf86f5a97c3ff (diff) | |
reorganize some files and imports
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 ] |