Trying to gen (maxBound :: Word64) from SystemRandom I get a GenErrorOther with a string message about an inability to generate that many bytes, instead of a RequestedTooManyBytes.
(maxBound :: Word64)
Humm, yes that should probably be RequestedTooManyBytes. I'll fix it.
Fixed. The function is reseedInfo :: g -> ReseedInfo
reseedInfo :: g -> ReseedInfo
data ReseedInfo =
= InXBytes Word64 -- ^ Generator needs reseeded in X bytes
| InXCalls Word64 -- ^ Generator needs reseeded in X calls
| NotSoon -- ^ The bound is over 2^64 bytes or calls
| Never -- ^ This generator never reseeds (ex: 'SystemRandom')
deriving (Eq, Ord, Show, Read, Typeable)
Oops, wrong comment for the thread. Still, I fixed the GenErrorOther issue too!