summaryrefslogtreecommitdiff
path: root/Limit.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-04-03 17:44:34 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-04-03 17:48:54 -0400
commit72b25b61e9c91668e0c05a17c50462b822885eb8 (patch)
tree73a82d2033d792c0a216ce6c0e45bd1fa126b8ff /Limit.hs
parentf768f16999d997077be98c0d8eabd3d85fd8caa5 (diff)
clean up urlrenderer handling when the webapp is not built
Diffstat (limited to 'Limit.hs')
-rw-r--r--Limit.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Limit.hs b/Limit.hs
index 745f2cd22..9ce9d591e 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -146,7 +146,7 @@ addCopies = addLimit . limitCopies
limitCopies :: MkLimit
limitCopies want = case split ":" want of
[v, n] -> case parsetrustspec v of
- Just pred -> go n $ checktrust pred
+ Just checker -> go n $ checktrust checker
Nothing -> go n $ checkgroup v
[n] -> go n $ const $ return True
_ -> Left "bad value for copies"
@@ -160,7 +160,7 @@ limitCopies want = case split ":" want of
us <- filter (`S.notMember` notpresent)
<$> (filterM good =<< Remote.keyLocations key)
return $ length us >= n
- checktrust pred u = pred <$> lookupTrust u
+ checktrust checker u = checker <$> lookupTrust u
checkgroup g u = S.member g <$> lookupGroups u
parsetrustspec s
| "+" `isSuffixOf` s = (>=) <$> readTrustLevel (beginning s)