summaryrefslogtreecommitdiff
path: root/GitAnnex/Options.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-07-09 12:05:56 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-07-09 12:05:56 -0400
commitb14b041bfa448dff6a486b3e04910741732b8c0e (patch)
tree7dc01563e83a80a8ffc647fb7d0f8f3d55275ccf /GitAnnex/Options.hs
parent48d561a7053fdcc42bf11cb41a0e0b73c5b70d68 (diff)
Make --numcopies override annex.numcopies set in .gitattributes.
Diffstat (limited to 'GitAnnex/Options.hs')
-rw-r--r--GitAnnex/Options.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/GitAnnex/Options.hs b/GitAnnex/Options.hs
index e74fc0a03..2cfdfafd2 100644
--- a/GitAnnex/Options.hs
+++ b/GitAnnex/Options.hs
@@ -53,10 +53,9 @@ options = Option.common ++
] ++ Option.matcher
where
setnumcopies v = maybe noop
- (\n -> Annex.changeGitConfig $ \c -> c { annexNumCopies = n })
+ (\n -> Annex.changeState $ \s -> s { Annex.forcenumcopies = Just n })
(readish v)
setgitconfig v = Annex.changeGitRepo =<< inRepo (Git.Config.store v)
-
trustArg t = ReqArg (Remote.forceTrust t) paramRemote
keyOptions :: [Option]