Skip to content

Commit da2d1bd

Browse files
committed
fix: exception related to the use of bitonic
1 parent 4841a03 commit da2d1bd

2 files changed

Lines changed: 3 additions & 2 deletions

File tree

  • src/GraphBLAS-sharp.Backend/Common
  • tests/GraphBLAS-sharp.Tests/Backend/Common/Sort

src/GraphBLAS-sharp.Backend/Common/Common.fs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -23,7 +23,8 @@ module Common =
2323
/// > val values = [| 1.9; 2.8; 6.4; 5.5; 4.6; 3.7; 7.3 |]
2424
/// </code>
2525
/// </example>
26-
let sortKeyValuesInplace = Sort.Bitonic.sortKeyValuesInplace
26+
let sortKeyValuesInplace<'n, 'a when 'n: comparison> =
27+
Sort.Bitonic.sortKeyValuesInplace<'n, 'a>
2728

2829
module Radix =
2930
/// <summary>

tests/GraphBLAS-sharp.Tests/Backend/Common/Sort/Bitonic.fs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -62,7 +62,7 @@ module Bitonic =
6262
|> Utils.compareArrays (=) actualValues expectedValues
6363

6464
let testFixtures<'a when 'a: equality> =
65-
Common.Bitonic.sortKeyValuesInplace context wgSize
65+
Common.Bitonic.sortKeyValuesInplace<int, 'a> context wgSize
6666
|> makeTest
6767
|> testPropertyWithConfig config $"Correctness on %A{typeof<'a>}"
6868

0 commit comments

Comments
 (0)