Returning unit value

Author: kirillgarbar

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

@@ -49,13 +49,11 @@ module BFS =
 
                     //Assigning new level values
                     fillSubVectorTo queue levels front (clContext.CreateClCell level) levels
-                    |> ignore
 
                     //Getting new frontier
-                    spMVTo queue matrix front front |> ignore
+                    spMVTo queue matrix front front
 
                     maskComplementedTo queue front levels front
-                    |> ignore
 
                     //Checking if front is empty
                     let frontNotEmpty = Array.zeroCreate 1

src/GraphBLAS-sharp.Backend/Vector/DenseVector/DenseVector.fs

@@ -66,8 +66,6 @@ module DenseVector =
 
             processor.Post(Msg.CreateRunMsg<_, _>(kernel))
 
-            resultVector
-
     let elementWise<'a, 'b, 'c when 'a: struct and 'b: struct and 'c: struct>
         (clContext: ClContext)
         (opAdd: Expr<'a option -> 'b option -> 'c option>)
@@ -88,6 +86,8 @@ module DenseVector =
 
             elementWiseTo processor leftVector rightVector resultVector
 
+            resultVector
+
     let elementWiseAtLeastOne clContext op workGroupSize =
         elementWise clContext (StandardOperations.atLeastOneToOption op) workGroupSize
 
@@ -121,8 +121,6 @@ module DenseVector =
 
             processor.Post(Msg.CreateRunMsg<_, _>(kernel))
 
-            resultVector
-
     let fillSubVector<'a, 'b when 'a: struct and 'b: struct>
         (clContext: ClContext)
         (maskOp: Expr<'a option -> 'b option -> 'a -> 'a option>)
@@ -143,6 +141,8 @@ module DenseVector =
 
             fillSubVectorTo processor leftVector maskVector value resultVector
 
+            resultVector
+
     let standardFillSubVectorTo<'a, 'b when 'a: struct and 'b: struct> (clContext: ClContext) (workGroupSize: int) =
         fillSubVectorTo<'a, 'b>
             clContext

src/GraphBLAS-sharp.Backend/Vector/SpMV.fs

@@ -146,8 +146,6 @@ module SpMV =
 
             queue.Post(Msg.CreateFreeMsg intermediateArray)
 
-            result
-
     let run
         (clContext: ClContext)
         (add: Expr<'c option -> 'c option -> 'c option>)
@@ -167,3 +165,5 @@ module SpMV =
                 )
 
             runTo queue matrix vector result
+
+            result