refactor: formatting

Author: artemiipatov

src/GraphBLAS-sharp.Backend/Quotes/Arithmetic.fs

@@ -5,13 +5,13 @@ open GraphBLAS.FSharp.Backend.Objects
 module ArithmeticOperations =
     let inline mkOpWithConst zero op constant =
         <@ fun x ->
-          let mutable res = zero
+            let mutable res = zero
 
-          match x with
-          | Some v -> res <- (op v constant)
-          | None -> res <- constant
+            match x with
+            | Some v -> res <- (op v constant)
+            | None -> res <- constant
 
-          if res = zero then None else Some res @>
+            if res = zero then None else Some res @>
 
     let inline mkNumericSum zero =
         <@ fun (x: 't option) (y: 't option) ->

src/GraphBLAS-sharp.Backend/Quotes/BinSearch.fs

@@ -52,4 +52,3 @@ module BinSearch =
                     leftEdge <- middleIdx + 1
 
             result @>
-

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

@@ -116,9 +116,14 @@ let testFixturesMapAdd case =
       let q = case.TestContext.Queue
       q.Error.Add(fun e -> failwithf "%A" e)
 
-      let addFloat64Q = ArithmeticOperations.mkOpWithConst 0.0 (+) 10.0
-      let addFloat32Q = ArithmeticOperations.mkOpWithConst 0.0f (+) 10.0f
-      let addByte = ArithmeticOperations.mkOpWithConst 0uy (+) 10uy
+      let addFloat64Q =
+          ArithmeticOperations.mkOpWithConst 0.0 (+) 10.0
+
+      let addFloat32Q =
+          ArithmeticOperations.mkOpWithConst 0.0f (+) 10.0f
+
+      let addByte =
+          ArithmeticOperations.mkOpWithConst 0uy (+) 10uy
 
       if Utils.isFloat64Available context.ClDevice then
           createTestMap case 0.0 ((+) 10.0) Utils.floatIsEqual addFloat64Q Matrix.map
@@ -134,9 +139,14 @@ let testFixturesMapMul case =
       let q = case.TestContext.Queue
       q.Error.Add(fun e -> failwithf "%A" e)
 
-      let mulFloat64Q = ArithmeticOperations.mkOpWithConst 0.0 (*) 10.0
-      let mulFloat32Q = ArithmeticOperations.mkOpWithConst 0.0f (*) 10.0f
-      let mulByte = ArithmeticOperations.mkOpWithConst 0uy (*) 10uy
+      let mulFloat64Q =
+          ArithmeticOperations.mkOpWithConst 0.0 (*) 10.0
+
+      let mulFloat32Q =
+          ArithmeticOperations.mkOpWithConst 0.0f (*) 10.0f
+
+      let mulByte =
+          ArithmeticOperations.mkOpWithConst 0uy (*) 10uy
 
       if Utils.isFloat64Available context.ClDevice then
           createTestMap case 0.0 ((*) 10.0) Utils.floatIsEqual mulFloat64Q Matrix.map