Catch unreasonably large seeds with NeedsInfiniteSeed

Apropos of https://github.com/TomMD/DRBG/issues/6

A possible hack that improves the error message: consider 1GB+ seeds as infinite.

I haven't compied it as the repo is missing `Crypto/Modes.hs-boot`, so wouldn't be surprised if it doesn't work as-is.