@@ -82,16 +82,13 @@ module Vector =
8282 fun ( processor : MailboxProcessor < _ >) flag ( vector : ClVector < 'a >) ->
8383 match vector with
8484 | ClVector.Sparse vector ->
85- let vector =
86- { Context = clContext
87- Indices = copy processor flag vector.Indices
88- Values = copyData processor flag vector.Values
89- Size = vector.Size }
90-
91- ClVector.Sparse vector
85+ { Context = clContext
86+ Indices = copy processor flag vector.Indices
87+ Values = copyData processor flag vector.Values
88+ Size = vector.Size }
89+ |> ClVector.Sparse
9290 | ClVector.Dense vector ->
93- ClVector.Dense
94- <| copyOptionData processor flag vector
91+ ClVector.Dense <| copyOptionData processor flag vector
9592
9693 let mask = copy
9794
@@ -134,12 +131,12 @@ module Vector =
134131 <| addDense processor flag left right
135132 | _ -> failwith " Vector formats are not matching."
136133
137- let elementWise ( clContext : ClContext ) ( opAdd : Expr < 'a option -> 'b option -> 'c option >) workGroupSize =
134+ let elementwise ( clContext : ClContext ) ( opAdd : Expr < 'a option -> 'b option -> 'c option >) workGroupSize =
138135 let addDense =
139- DenseVector.elementWise clContext opAdd workGroupSize
136+ DenseVector.elementwise clContext opAdd workGroupSize
140137
141138 let addSparse =
142- SparseVector.elementWise clContext opAdd workGroupSize
139+ SparseVector.elementwise clContext opAdd workGroupSize
143140
144141 fun ( processor : MailboxProcessor < _ >) flag ( leftVector : ClVector < 'a >) ( rightVector : ClVector < 'b >) ->
145142 match leftVector, rightVector with
@@ -161,7 +158,7 @@ module Vector =
161158 SparseVector.elementwiseGeneral clContext opAdd workGroupsSize
162159
163160 let denseEWise =
164- DenseVector.elementWise clContext opAdd workGroupsSize
161+ DenseVector.elementwise clContext opAdd workGroupsSize
165162
166163 fun ( processor : MailboxProcessor < _ >) flag ( leftVector : ClVector < 'a >) ( rightVector : ClVector < 'b >) ->
167164 match leftVector, rightVector with
0 commit comments