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 /Config.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 'Config.hs')
-rw-r--r-- | Config.hs | 7 |
1 files changed, 0 insertions, 7 deletions
@@ -69,13 +69,6 @@ setRemoteCost r c = setConfig (remoteConfig r "cost") (show c) setRemoteAvailability :: Git.Repo -> Availability -> Annex () setRemoteAvailability r c = setConfig (remoteConfig r "availability") (show c) -getNumCopies :: Maybe Int -> Annex Int -getNumCopies (Just v) = return v -getNumCopies Nothing = deprecatedNumCopies - -deprecatedNumCopies :: Annex Int -deprecatedNumCopies = fromMaybe 1 . annexNumCopies <$> Annex.getGitConfig - isDirect :: Annex Bool isDirect = annexDirect <$> Annex.getGitConfig |