F＃类/模块中自动生成的静态字段会阻止创建SQL CLR函数

CREATE ASSEMBLY

[DebuggerBrowsable(DebuggerBrowsableState.Never)]
internal static <PrivateImplementationDetails$MyNamespace-SqlServer-Text>.T1775_18Bytes@ field1776@; // data size: 18 bytes

namespace MyNamespace.SqlServer.Text

module StringMetrics =

    open System
    open System.Collections.Generic
    open System.Data
    open System.Data.SqlTypes

    [<CompiledName(\"FuzzyMatch\")>]
    let fuzzyMatch (strA:SqlString) (strB:SqlString) =
        if strA.IsNull || strB.IsNull then SqlInt32.Zero
        else
            let comparer = StringComparer.OrdinalIgnoreCase

            let wordBoundaries = [|\' \'; \'\\t\'; \'\\n\'; \'\\r\'; \',\'; \':\'; \';\'; \'(\'; \')\'|]

            let stringEquals a b = comparer.Equals(a, b)

            let isSubstring (search:string) (find:string) = find.Length >= search.Length / 2 && search.IndexOf(find, StringComparison.OrdinalIgnoreCase) >= 0

            let split (str:string) = str.Split(wordBoundaries)

            let score (strA:string) (strB:string)  =
                if stringEquals strA strB then strA.Length * 3
                else
                    let lenA, lenB = strA.Length, strB.Length
                    if strA |> isSubstring strB then lenA * 2
                    elif strB |> isSubstring strA then lenB * 2
                    else 0

            let arrA, arrB = split strA.Value, split strB.Value
            let dictA, dictB = Dictionary(), Dictionary()

            arrA |> Seq.iteri (fun i a ->
                arrB |> Seq.iteri (fun j b ->
                    match score a b with
                    | 0 -> ()
                    | s -> 
                        match dictB.TryGetValue(j) with
                        | true, (s\', i\') -> //\'
                            if s > s\' then //\'
                                dictA.Add(i, j)
                                dictB.[j] <- (s, i)
                        | _ -> 
                            dictA.Add(i, j)
                            dictB.Add(j, (s, i))))

            let matchScore = dictB |> Seq.sumBy (function (KeyValue(_, (s, _))) -> s)
            let nonMatchA = 
                arrA
                |> Seq.mapi (fun i a -> i, a)
                |> Seq.fold (fun s (i, a) -> 
                    if dictA.ContainsKey(i) then s
                    else s + a.Length) 0
            let wordsB = HashSet(seq { for (KeyValue(i, _)) in dictB -> arrB.[i] }, comparer)
            let nonMatchB = 
                arrB |> Seq.fold (fun s b -> 
                    if wordsB.Add(b) then s + b.Length
                    else s) 0

            SqlInt32(matchScore - nonMatchA - nonMatchB)