Fix issue #154

2017-04-21 13:51:52 -06:00 · 2017-04-21 13:51:52 -06:00 · 4aec5fc98e
commit 4aec5fc98e
parent 4f988181c7
1 changed files with 1 additions and 3 deletions
--- a/Crypto/Number/Generate.hs
+++ b/Crypto/Number/Generate.hs
@ -120,6 +120,4 @@ generateMax range

 -- | generate a number between the inclusive bound [low,high].
 generateBetween :: MonadRandom m => Integer -> Integer -> m Integer
-generateBetween low high
-    | low == 1  = generateMax high >>= \r -> if r == 0 then generateBetween low high else return r
-    | otherwise = (low +) <$> generateMax (high - low + 1)
+generateBetween low high = (low +) <$> generateMax (high - low + 1)