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.

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