diff --git a/Crypto/Random.hs b/Crypto/Random.hs index 4cea74b..28d99ef 100644 --- a/Crypto/Random.hs +++ b/Crypto/Random.hs @@ -84,6 +84,9 @@ drgNewSeed (Seed seed) = initialize seed -- Note that the @Arbitrary@ instance provided by QuickCheck for 'Word64' does -- not have a uniform distribution. It is often better to use instead -- @arbitraryBoundedRandom@. +-- +-- System endianness impacts how the tuple is interpreted and therefore changes +-- the resulting DRG. drgNewTest :: (Word64, Word64, Word64, Word64, Word64) -> ChaChaDRG drgNewTest = initializeWords