diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-04-23 15:11:26 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-04-23 15:11:26 +0200 |
| commit | 3fd158069db42bc52bf21ca222502a651b71c29f (patch) | |
| tree | 549d895e4b9dd197f4ffbe42d09f48e0c3ba0d7c | |
| parent | 9106993eeb2036f1dc5165535e1f2be77c273f59 (diff) | |
test: up 'random' dependency
| -rw-r--r-- | ox-arrays.cabal | 2 | ||||
| -rw-r--r-- | test/Gen.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ox-arrays.cabal b/ox-arrays.cabal index 39a2782..f9d445b 100644 --- a/ox-arrays.cabal +++ b/ox-arrays.cabal @@ -118,7 +118,7 @@ test-suite test ghc-typelits-natnormalise, hedgehog, orthotope, - random, + random >= 1.3.0, tasty, tasty-hedgehog, vector diff --git a/test/Gen.hs b/test/Gen.hs index 695b83f..244c735 100644 --- a/test/Gen.hs +++ b/test/Gen.hs @@ -124,7 +124,7 @@ genStorables rng f = do n <- Gen.int rng seed <- Gen.resize 99 $ Gen.int Range.linearBounded let gen0 = Random.mkStdGen seed - (bs, _) = Random.genByteString (8 * n) gen0 + (bs, _) = Random.uniformByteString (8 * n) gen0 let readW64 i = sum (zipWith (*) (iterate (*256) 1) [fromIntegral (bs `BS.index` (8 * i + j)) | j <- [0..7]]) return $ VS.generate n (f . readW64) |