diff options
Diffstat (limited to 'Command.hs')
| -rw-r--r-- | Command.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Command.hs b/Command.hs index 06126103b..8083e0d7c 100644 --- a/Command.hs +++ b/Command.hs @@ -99,7 +99,11 @@ isBareRepo :: Annex Bool isBareRepo = fromRepo Git.repoIsLocalBare numCopies :: FilePath -> Annex (Maybe Int) -numCopies file = readish <$> checkAttr "annex.numcopies" file +numCopies file = do + forced <- Annex.getState Annex.forcenumcopies + case forced of + Just n -> return $ Just n + Nothing -> readish <$> checkAttr "annex.numcopies" file numCopiesCheck :: FilePath -> Key -> (Int -> Int -> Bool) -> Annex Bool numCopiesCheck file key vs = do |