aboutsummaryrefslogtreecommitdiff
path: root/Config.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-21 16:08:19 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-21 16:08:59 -0400
commitd5f7fb27aad3e2e9c4bebb9ccd5577af8deb25c7 (patch)
tree838837e3112942fcf0f82cfc7f68e62a6f4e7a6e /Config.hs
parent9a8709f064c7608859b3155a752093b29cd8ab98 (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.hs7
1 files changed, 0 insertions, 7 deletions
diff --git a/Config.hs b/Config.hs
index 0ccf1b5c0..376a3a488 100644
--- a/Config.hs
+++ b/Config.hs
@@ -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