summaryrefslogtreecommitdiff
path: root/Limit.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-21 16:08:19 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-21 16:08:59 -0400
commitd5f7fb27aad3e2e9c4bebb9ccd5577af8deb25c7 (patch)
tree838837e3112942fcf0f82cfc7f68e62a6f4e7a6e /Limit.hs
parent9a8709f064c7608859b3155a752093b29cd8ab98 (diff)
reorganize numcopies code (no behavior changes)
Move stuff into Logs.NumCopies. Add a NumCopies newtype. Better names for various serialization classes that are specific to one thing or another.
Diffstat (limited to 'Limit.hs')
-rw-r--r--Limit.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Limit.hs b/Limit.hs
index c0d32c68e..9d62fecc1 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -197,7 +197,7 @@ limitNumCopiesNeeded want = case readish want of
gv <- getGlobalNumCopies
case gv of
Nothing -> return False
- Just numcopies -> do
+ Just (NumCopies numcopies) -> do
us <- filter (`S.notMember` notpresent)
<$> (trustExclude UnTrusted =<< Remote.keyLocations key)
return $ numcopies - length us >= needed