SSSP return vector

Author: kirillgarbar

src/GraphBLAS-sharp.Backend/Algorithms/SSSP.fs

@@ -7,7 +7,7 @@ open GraphBLAS.FSharp.Backend.Quotes
 open GraphBLAS.FSharp.Objects.ClContextExtensions
 open GraphBLAS.FSharp.Objects.ClCellExtensions
 
-module SSSP =
+module internal SSSP =
     let run (clContext: ClContext) workGroupSize =
 
         let less = ArithmeticOperations.less<int>
@@ -76,6 +76,4 @@ module SSSP =
             front1.Dispose queue
             front2.Dispose queue
 
-            match distance with
-            | ClVector.Dense dist -> dist
-            | _ -> failwith "not implemented"
+            distance

tests/GraphBLAS-sharp.Tests/Backend/Algorithms/SSSP.fs

@@ -45,8 +45,7 @@ let testFixtures (testContext: TestContext) =
 
               let matrix = matrixHost.ToDevice context
 
-              let resDense =
-                  ssspDense queue matrix source |> ClVector.Dense
+              let resDense = ssspDense queue matrix source
 
               let resHost = resDense.ToHost queue