refactor: formatting

Author: IgorErin

src/GraphBLAS-sharp.Backend/Vector/SparseVector/Map2.fs

@@ -70,7 +70,7 @@ module Map2 =
                     resultIndices.[gid] <- gid
 
                     resultBitmap.[gid] <- 1
-                | None -> resultBitmap.[gid] <- 0     @>
+                | None -> resultBitmap.[gid] <- 0 @>
 
     let merge workGroupSize =
         <@ fun (ndRange: Range1D) (firstSide: int) (secondSide: int) (sumOfSides: int) (firstIndicesBuffer: ClArray<int>) (firstValuesBuffer: ClArray<'a>) (secondIndicesBuffer: ClArray<int>) (secondValuesBuffer: ClArray<'b>) (allIndicesBuffer: ClArray<int>) (firstResultValues: ClArray<'a>) (secondResultValues: ClArray<'b>) (isLeftBitMap: ClArray<int>) ->

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

@@ -260,7 +260,7 @@ module SparseVector =
         let kernel =
             clContext.Compile(Map2.prepareFillGeneral op)
 
-        fun (processor: MailboxProcessor<_>) (vectorLenght: int) (leftValues: ClArray<'a>) (leftIndices: ClArray<int>) (rightValues: ClArray<'b>) (rightIndices: ClArray<int>) (value: ClCell<'a>)->
+        fun (processor: MailboxProcessor<_>) (vectorLenght: int) (leftValues: ClArray<'a>) (leftIndices: ClArray<int>) (rightValues: ClArray<'b>) (rightIndices: ClArray<int>) (value: ClCell<'a>) ->
 
             let resultBitmap =
                 clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, vectorLenght)
@@ -301,11 +301,7 @@ module SparseVector =
     ///<param name="clContext">.</param>
     ///<param name="op">.</param>
     ///<param name="workGroupSize">Should be a power of 2 and greater than 1.</param>
-    let fillSubVector<'a, 'b when 'a: struct and 'b: struct>
-        (clContext: ClContext)
-        op
-        workGroupSize
-        =
+    let fillSubVector<'a, 'b when 'a: struct and 'b: struct> (clContext: ClContext) op workGroupSize =
 
         let prepare =
             preparePositionsFillSubVector clContext op workGroupSize
@@ -315,7 +311,14 @@ module SparseVector =
         fun (processor: MailboxProcessor<_>) allocationMode (leftVector: ClVector.Sparse<'a>) (rightVector: ClVector.Sparse<'b>) (value: ClCell<'a>) ->
 
             let bitmap, values, indices =
-                prepare processor leftVector.Size leftVector.Values leftVector.Indices rightVector.Values rightVector.Indices value
+                prepare
+                    processor
+                    leftVector.Size
+                    leftVector.Values
+                    leftVector.Indices
+                    rightVector.Values
+                    rightVector.Indices
+                    value
 
             let resultValues, resultIndices =
                 setPositions processor allocationMode values indices bitmap

tests/GraphBLAS-sharp.Tests/Vector/FillSubVector.fs

@@ -20,22 +20,14 @@ let alwaysTrue _ = true
 
 let notNane x = not <| Double.IsNaN x
 
-let checkResult
-    isZero
-    isComplemented
-    (actual: Vector<'a>)
-    (vector: 'a [])
-    (mask: 'a [])
-    (value: 'a)
-    =
+let checkResult isZero isComplemented (actual: Vector<'a>) (vector: 'a []) (mask: 'a []) (value: 'a) =
 
     let expectedArray = Array.zeroCreate vector.Length
 
     let (Vector.Dense vector) =
         createVectorFromArray Dense vector isZero
 
-    let (Vector.Dense mask) =
-        createVectorFromArray Dense mask isZero
+    let (Vector.Dense mask) = createVectorFromArray Dense mask isZero
 
     for i in 0 .. vector.Length - 1 do
         expectedArray.[i] <-
@@ -52,7 +44,7 @@ let checkResult
     | Vector.Dense actual -> Expect.equal actual expectedArray "Arrays must be equals"
     | _ -> failwith "Vector format must be Dense."
 
-let makeTest<'a when 'a: struct and 'a : equality>
+let makeTest<'a when 'a: struct and 'a: equality>
     (isZero: 'a -> bool)
     isValueCompatible
     (toDense: MailboxProcessor<_> -> AllocationFlag -> ClVector<'a> -> ClVector<'a>)
@@ -106,7 +98,8 @@ let testFixtures case =
     let context = case.TestContext.ClContext
 
     let floatIsEqual x y =
-        abs (x - y) < Accuracy.medium.absolute || x.Equals(y)
+        abs (x - y) < Accuracy.medium.absolute
+        || x.Equals(y)
 
     let isComplemented = false
 
@@ -196,7 +189,7 @@ let testFixturesComplemented case =
       let boolToCoo = Vector.toDense context wgSize
 
       case
-      |> makeTest ((=) false) alwaysTrue boolToCoo boolFill  isComplemented
+      |> makeTest ((=) false) alwaysTrue boolToCoo boolFill isComplemented
       |> testPropertyWithConfig config (getCorrectnessTestName "bool") ]
 
 let complementedTests =