From 4aec5fc98e7e0693e188010627d0e0dbaa6396f8 Mon Sep 17 00:00:00 2001 From: Dimitri DeFigueiredo Date: Fri, 21 Apr 2017 13:51:52 -0600 Subject: [PATCH] Fix issue #154 --- Crypto/Number/Generate.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Crypto/Number/Generate.hs b/Crypto/Number/Generate.hs index d4f0bdb..c2103c8 100644 --- 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)