when we did not get enough shares, show how many we got

1 files changed, 2 insertions, 1 deletions

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