refactor: type paremeters

Author: IgorErin

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

@@ -15,7 +15,7 @@ module BFS =
     let singleSource
         (clContext: ClContext)
         (add: Expr<int option -> int option -> int option>)
-        (mul: Expr<'a option -> 'b option -> int option>)
+        (mul: Expr<'a option -> int option -> int option>)
         workGroupSize
         =
 

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

@@ -14,7 +14,8 @@ module SpMV =
         workGroupSize
         =
 
-        let localMemorySize = clContext.ClDevice.LocalMemSize / 1<Byte>
+        let localMemorySize =
+            clContext.ClDevice.LocalMemSize / 1<Byte>
 
         let localPointersArraySize = workGroupSize + 1
 

tests/GraphBLAS-sharp.Tests/Helpers.fs

@@ -706,7 +706,8 @@ module Utils =
         abs (x - y) < Accuracy.medium.absolute
         || x.Equals y
 
-    let vectorToDenseVector = function
+    let vectorToDenseVector =
+        function
         | Vector.Dense vector -> vector
         | _ -> failwith "Vector format must be Dense."
 

tests/GraphBLAS-sharp.Tests/Matrix/Map2.fs

@@ -50,7 +50,7 @@ let checkResult isEqual op zero (baseMtx1: 'a [,]) (baseMtx2: 'a [,]) (actual: M
 let correctnessGenericTest
     zero
     op
-    (addFun: MailboxProcessor<_> -> AllocationFlag -> ClMatrix<'a> -> ClMatrix<'b> -> ClMatrix<'c>)
+    (addFun: MailboxProcessor<_> -> AllocationFlag -> ClMatrix<'a> -> ClMatrix<'a> -> ClMatrix<'c>)
     toCOOFun
     (isEqual: 'a -> 'a -> bool)
     q

tests/GraphBLAS-sharp.Tests/QuickGraph/CreateGraph.fs

@@ -4,12 +4,12 @@ open QuikGraph
 
 module CreateGraph =
     let directedFromArray2D (matrix: 'a [,]) zero =
-        let graph = AdjacencyGraph<'a, Edge<'a>>()
+        let graph = AdjacencyGraph<int, Edge<int>>()
 
         for outVertex in 0 .. Array2D.length1 matrix - 1 do
             for inVertex in 0 .. Array2D.length2 matrix - 1 do
                 if matrix.[outVertex, inVertex] <> zero then
-                    graph.AddVerticesAndEdge(new Edge<'a>(outVertex, inVertex))
+                    graph.AddVerticesAndEdge(Edge<int>(outVertex, inVertex))
                     |> ignore
 
         graph
@@ -19,7 +19,7 @@ module CreateGraph =
             Array2D.mapi
                 (fun r c v ->
                     if v <> zero then
-                        Some(Edge<'a>(r, c))
+                        Some(Edge<int>(r, c))
                     else
                         None)
                 matrix