maxsize of 0 to disable
This commit is contained in:
parent
4e11cb19ef
commit
811dd95453
3 changed files with 4 additions and 0 deletions
1
Limit.hs
1
Limit.hs
|
@ -634,6 +634,7 @@ limitFullyBalanced' = limitFullyBalanced'' $ \n key candidates -> do
|
|||
threshhold <- annexFullyBalancedThreshhold <$> Annex.getGitConfig
|
||||
let toofull u =
|
||||
case (M.lookup u maxsizes, M.lookup u sizemap) of
|
||||
(Just (MaxSize 0), _) -> False
|
||||
(Just (MaxSize maxsize), Just (RepoSize reposize)) ->
|
||||
fromIntegral reposize >= fromIntegral maxsize * threshhold
|
||||
_ -> False
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue