fix
This commit is contained in:
parent
476d223bce
commit
de7ac1bb70
1 changed files with 2 additions and 1 deletions
3
Limit.hs
3
Limit.hs
|
@ -623,7 +623,8 @@ limitFullyBalanced' mu getgroupmap g n want = Right $ MatchFiles
|
||||||
return $ if S.null candidates
|
return $ if S.null candidates
|
||||||
then False
|
then False
|
||||||
else case (mu, M.lookup g (balancedPickerByGroup gm)) of
|
else case (mu, M.lookup g (balancedPickerByGroup gm)) of
|
||||||
(Just u, Just picker) -> u == picker candidates key n
|
(Just u, Just picker) ->
|
||||||
|
u `elem` picker candidates key n
|
||||||
_ -> False
|
_ -> False
|
||||||
, matchNeedsFileName = False
|
, matchNeedsFileName = False
|
||||||
, matchNeedsFileContent = False
|
, matchNeedsFileContent = False
|
||||||
|
|
Loading…
Add table
Reference in a new issue