haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[number] add debugging in case of error

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-23 16:28:50 +01:00
parent d0cb713ccb
commit e14d9cafc9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Crypto/Number/Generate.hs
View File

@ -93,13 +93,13 @@ generateMax range
generateSimple = flip mod range `fmap` generateParams bits Nothing False generateSimple = flip mod range `fmap` generateParams bits Nothing False
loopGenerate count loopGenerate count
| count == 0 = error "internal: generateMax (normal) doesn't seems to work properly" | count == 0 = error $ "internal: generateMax(" ++ show range ++ " bits=" ++ show bits ++ ") (normal) doesn't seems to work properly"
| otherwise = do | otherwise = do
r <- generateParams bits Nothing False r <- generateParams bits Nothing False
if isValid r then return r else loopGenerate (count-1) if isValid r then return r else loopGenerate (count-1)
loopGenerateOver count loopGenerateOver count
| count == 0 = error "internal: generateMax (over) doesn't seems to work properly" | count == 0 = error $ "internal: generateMax(" ++ show range ++ " bits=" ++ show bits ++ ") (over) doesn't seems to work properly"
| otherwise = do | otherwise = do
r <- generateParams (bits+1) Nothing False r <- generateParams (bits+1) Nothing False
let r2 = r - range let r2 = r - range