finish fixing inverted Ord for TrustLevel
Flipped all comparisons. When a TrustLevel list was wanted from Trusted downwards, used Down to compare it in that order. This commit was sponsored by mo on Patreon.
This commit is contained in:
parent
a0e4b9678b
commit
f56594af9e
7 changed files with 22 additions and 19 deletions
2
Limit.hs
2
Limit.hs
|
@ -180,7 +180,7 @@ limitCopies want = case splitc ':' want of
|
|||
checktrust checker u = checker <$> lookupTrust u
|
||||
checkgroup g u = S.member g <$> lookupGroups u
|
||||
parsetrustspec s
|
||||
-- | "+" `isSuffixOf` s = (<=) <$> readTrustLevel (beginning s)
|
||||
| "+" `isSuffixOf` s = (<=) <$> readTrustLevel (beginning s)
|
||||
| otherwise = (==) <$> readTrustLevel s
|
||||
|
||||
{- Adds a limit to match files that need more copies made. -}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue