refactor: kronecker

Author: artemiipatov

src/GraphBLAS-sharp.Backend/Matrix/CSR/Kronecker.fs

@@ -30,7 +30,7 @@ module internal Kronecker =
                     | Some _ -> resultBitmap.[0] <- newItem
                     | _ -> ()
 
-                else if (gid - 1) < valuesLength then
+                elif (gid - 1) < valuesLength then
 
                     let item = resultBitmap.[gid]
                     let newItem = item + 1

src/GraphBLAS-sharp.Backend/Vector/Sparse/Map.fs

@@ -86,8 +86,7 @@ module Map =
 
             let create = create clContext workGroupSize
 
-            let init =
-                init <@ fun x -> x @> clContext workGroupSize
+            let init = init <@ id @> clContext workGroupSize
 
             fun (queue: MailboxProcessor<_>) allocationMode (value: 'a option) size ->
                 function