Merge pull request #155 from dimitri-xyz/master

Fix issue #154: `generateBetween` excludes upper bound if lower bound is 1
2017-04-23 08:48:29 +02:00 · 2017-04-23 08:48:29 +02:00 · 30bb81a307
commit 30bb81a307
parent 4f988181c7 4aec5fc98e
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)