aboutsummaryrefslogtreecommitdiff
path: root/Command/NumCopies.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-21 17:08:49 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-21 17:25:39 -0400
commitd44bd607d4fd18eadabe3c7693ebcf1c74aae63e (patch)
tree83e8867f45199ece960fc67e4d31f1d9b4a5d56a /Command/NumCopies.hs
parentd5f7fb27aad3e2e9c4bebb9ccd5577af8deb25c7 (diff)
numcopies cleanup, part 2
This includes several bug fixes.
Diffstat (limited to 'Command/NumCopies.hs')
-rw-r--r--Command/NumCopies.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/NumCopies.hs b/Command/NumCopies.hs
index 51bde2e68..cc322bcbd 100644
--- a/Command/NumCopies.hs
+++ b/Command/NumCopies.hs
@@ -42,10 +42,10 @@ startGet = next $ next $ do
Just n -> liftIO $ putStrLn $ show $ fromNumCopies n
Nothing -> do
liftIO $ putStrLn $ "global numcopies is not set"
- old <- annexNumCopies <$> Annex.getGitConfig
+ old <- deprecatedNumCopies
case old of
Nothing -> liftIO $ putStrLn "(default is 1)"
- Just n -> liftIO $ putStrLn $ "(deprecated git config annex.numcopies is set to " ++ show n ++ " locally)"
+ Just n -> liftIO $ putStrLn $ "(deprecated git config annex.numcopies is set to " ++ show (fromNumCopies n) ++ " locally)"
return True
startSet :: Int -> CommandStart