From f569d149c4aabc6dc1ff0741de638a6adbd0328a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 3 Mar 2017 16:16:36 -0400 Subject: when we did not get enough shares, show how many we got --- Share.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Share.hs b/Share.hs index 2d848b9..6d39f99 100644 --- a/Share.hs +++ b/Share.hs @@ -94,7 +94,8 @@ genShares (EncryptedSecretKey cs _) tunables = do combineShares :: Tunables -> [S.Set Share] -> Either String EncryptedSecretKey combineShares tunables shares | null shares || any null shares || any (\l -> length l < sharesneeded) shares = - Left "Not enough shares are currently available to reconstruct your data." + Left $ "Not enough shares are currently available to reconstruct your data. " ++ + concatMap (\l -> "(Got " ++ show (length l) ++ "/" ++ show sharesneeded ++ ") ") shares | otherwise = Right $ mk $ map (BL.toStrict . SS.decode . map decodeshare . S.toList) shares where -- cgit v1.2.3