diff options
Diffstat (limited to 'Share.hs')
| -rw-r--r-- | Share.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 |