From e14d9cafc9f7efcfe40b1d2447ac867e5436c821 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Sat, 23 May 2015 16:28:50 +0100 Subject: [PATCH] [number] add debugging in case of error --- Crypto/Number/Generate.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Crypto/Number/Generate.hs b/Crypto/Number/Generate.hs index d3fd23c..e451c1d 100644 --- a/Crypto/Number/Generate.hs +++ b/Crypto/Number/Generate.hs @@ -93,13 +93,13 @@ generateMax range generateSimple = flip mod range `fmap` generateParams bits Nothing False 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 r <- generateParams bits Nothing False if isValid r then return r else loopGenerate (count-1) 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 r <- generateParams (bits+1) Nothing False let r2 = r - range