diff options
Diffstat (limited to 'test/Main.hs')
| -rw-r--r-- | test/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/Main.hs b/test/Main.hs index d488ce5..2b7e7d8 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -353,9 +353,9 @@ tests = testGroup "AD" genGMM = do -- The input ranges here are completely arbitrary. let tR = STScal STF64 - kN <- Gen.integral (Range.linear 1 10) - kD <- Gen.integral (Range.linear 1 10) - kK <- Gen.integral (Range.linear 1 10) + kN <- Gen.integral (Range.linear 1 8) + kD <- Gen.integral (Range.linear 1 8) + kK <- Gen.integral (Range.linear 1 8) let i2i64 = fromIntegral @Int @Int64 valpha <- genArray tR (ShNil `ShCons` kK) vM <- genArray tR (ShNil `ShCons` kK `ShCons` kD) |