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)