diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-21 16:08:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-21 16:08:59 -0400 |
| commit | d5f7fb27aad3e2e9c4bebb9ccd5577af8deb25c7 (patch) | |
| tree | 838837e3112942fcf0f82cfc7f68e62a6f4e7a6e /GitAnnex/Options.hs | |
| parent | 9a8709f064c7608859b3155a752093b29cd8ab98 (diff) | |
reorganize numcopies code (no behavior changes)
Move stuff into Logs.NumCopies. Add a NumCopies newtype.
Better names for various serialization classes that are specific to one
thing or another.
Diffstat (limited to 'GitAnnex/Options.hs')
| -rw-r--r-- | GitAnnex/Options.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/GitAnnex/Options.hs b/GitAnnex/Options.hs index ad1e0c93b..063ca995b 100644 --- a/GitAnnex/Options.hs +++ b/GitAnnex/Options.hs @@ -14,6 +14,7 @@ import qualified Git.Config import Git.Types import Command import Types.TrustLevel +import Types.NumCopies import Types.Messages import qualified Annex import qualified Remote @@ -65,7 +66,7 @@ options = Option.common ++ where trustArg t = ReqArg (Remote.forceTrust t) paramRemote setnumcopies v = maybe noop - (\n -> Annex.changeState $ \s -> s { Annex.globalnumcopies = Just n }) + (\n -> Annex.changeState $ \s -> s { Annex.globalnumcopies = Just $ NumCopies n }) (readish v) setuseragent v = Annex.changeState $ \s -> s { Annex.useragent = Just v } setgitconfig v = inRepo (Git.Config.store v) |