@@ -59,11 +59,11 @@ module LeafExpressionConverter =
5959 |> System.Reflection.MethodInfo.GetMethodFromHandle
6060 :?> MethodInfo
6161
62- let SubstHelperRaw ( q : Expr , x : Var [] , y : obj [] ) : Expr =
62+ let SubstHelperRaw ( q : Expr , x : Var array , y : obj array ) : Expr =
6363 let d = Map.ofArray ( Array.zip x y)
6464 q.Substitute( fun v -> v |> d.TryFind |> Option.map ( fun x -> Expr.Value ( x, v.Type)))
6565
66- let SubstHelper < 'T > ( q : Expr , x : Var [] , y : obj [] ) : Expr < 'T > =
66+ let SubstHelper < 'T > ( q : Expr , x : Var array , y : obj array ) : Expr < 'T > =
6767 SubstHelperRaw( q, x, y) |> Expr.Cast
6868
6969 let showAll =
@@ -390,15 +390,15 @@ module LeafExpressionConverter =
390390 let (| NewAnonymousObjectHelperQ | _ |) = (| SpecificCallToMethod|_|) ( methodhandleof ( NewAnonymousObjectHelper))
391391 let (| ArrayLookupQ | _ |) = (| SpecificCallToMethod|_|) ( methodhandleof ( fun ( x , y ) -> LanguagePrimitives.IntrinsicFunctions.GetArray x y))
392392
393- //let (|ArrayAssignQ|_|) = (|SpecificCallToMethod|_|) (methodhandleof (fun -> LanguagePrimitives.IntrinsicFunctions.SetArray : int[] -> int -> int -> unit))
393+ //let (|ArrayAssignQ|_|) = (|SpecificCallToMethod|_|) (methodhandleof (fun -> LanguagePrimitives.IntrinsicFunctions.SetArray : int array -> int -> int -> unit))
394394 //let (|ArrayTypeQ|_|) (ty:System.Type) = if ty.IsArray && ty.GetArrayRank() = 1 then Some (ty.GetElementType()) else None
395395 let substHelperMeth =
396- methodhandleof ( fun ( x : Expr , y : Var [] , z : obj [] ) -> SubstHelper< obj> ( x, y, z))
396+ methodhandleof ( fun ( x : Expr , y : Var array , z : obj array ) -> SubstHelper< obj> ( x, y, z))
397397 |> System.Reflection.MethodInfo.GetMethodFromHandle
398398 :?> MethodInfo
399399
400400 let substHelperRawMeth =
401- methodhandleof ( fun ( x : Expr , y : Var [] , z : obj [] ) -> SubstHelperRaw ( x, y, z))
401+ methodhandleof ( fun ( x : Expr , y : Var array , z : obj array ) -> SubstHelperRaw ( x, y, z))
402402 |> System.Reflection.MethodInfo.GetMethodFromHandle
403403 :?> MethodInfo
404404
@@ -737,7 +737,7 @@ module LeafExpressionConverter =
737737 else
738738 Reflection.FSharpType.MakeTupleType( argTypes)
739739 let argsP = ConvExprsToLinq env args
740- let rec build ty ( argsP : Expression [] ) =
740+ let rec build ty ( argsP : Expression array ) =
741741 match Reflection.FSharpValue.PreComputeTupleConstructorInfo ty with
742742 | ctorInfo, None -> Expression.New( ctorInfo, argsP) |> asExpr
743743 | ctorInfo, Some ( nestedTy) ->
@@ -879,7 +879,7 @@ module LeafExpressionConverter =
879879 | None ->
880880 null
881881
882- and ConvExprsToLinq env es : Expression [] =
882+ and ConvExprsToLinq env es : Expression array =
883883 es |> List.map ( ConvExprToLinqInContext env) |> Array.ofList
884884
885885 and ConvVarToLinq ( v : Var ) =
0 commit comments