From cddac096cdc9b348e8d64b88051043d97d35d351 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Sat, 23 May 2015 09:15:42 +0100 Subject: [PATCH] [number] rename generate into generateParams --- Crypto/Number/Generate.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Crypto/Number/Generate.hs b/Crypto/Number/Generate.hs index c5b62cf..1f356e5 100644 --- a/Crypto/Number/Generate.hs +++ b/Crypto/Number/Generate.hs @@ -7,7 +7,7 @@ module Crypto.Number.Generate ( GenTopPolicy(..) - , generate + , generateParams , generateMax , generateBetween , generateOfSize @@ -41,12 +41,12 @@ data GenTopPolicy = -- If @generateOdd is set to 'True', then the number generated -- is guaranteed to be odd. Otherwise it will be whatever is generated -- -generate :: MonadRandom m - => Int -- ^ number of bits - -> Maybe GenTopPolicy -- ^ top bit policy - -> Bool -- ^ force the number to be odd - -> m Integer -generate bits genTopPolicy generateOdd +generateParams :: MonadRandom m + => Int -- ^ number of bits + -> Maybe GenTopPolicy -- ^ top bit policy + -> Bool -- ^ force the number to be odd + -> m Integer +generateParams bits genTopPolicy generateOdd | bits <= 0 = return 0 | otherwise = os2ip . tweak <$> getRandomBytes bytes where