F# 和 MEF：导出函数

Question

所以，我试图让这个简单的测试在 F# 控制台应用程序中运行：

open System.Reflection
open System.ComponentModel.Composition
open System.ComponentModel.Composition.Hosting

[<Export(typeof<int -> string>)>]
let toString(i: int) = i.ToString()

[<EntryPoint>]
let main argv = 
    use catalog = new AssemblyCatalog(Assembly.GetEntryAssembly())
    use container = new CompositionContainer(catalog)

    let myFunction = container.GetExportedValue<int -> string>()
    let result = myFunction(5)
    0

我希望 MEF 能够正确解决该功能，但事实并非如此。 相反，我得到了这个：

未处理的类型异常 'System.ComponentModel.Composition.CompositionContractMismatchException' 发生在 System.ComponentModel.Composition.dll

补充资料：

Cannot cast the underlying exported value of type 'Program.toString (ContractName="Microsoft.FSharp.Core.FSharpFunc(System.Int32,System.String)")' to type 'Microsoft.FSharp.Core.FSharpFunc``2[System.Int32,System.String]'.

• 我在这里缺少什么？
• FSharpFunc(System.Int32, System.String) 和FSharpFunc``2[System.Int32, System.String] 有什么区别？
• 通过 MEF 导入/导出 F# 函数的正确方法是什么？

Answer 1

编译器将顶级 F# 函数转换为方法，因此您的示例将编译为：

[Export(FSharpFunc<int,string>)]
public string toString(int i) { return i.ToString(); }

这可能是导致错误的原因。您可以通过调用一些返回函数的操作来强制编译器生成 FSharpFunc 类型的属性获取器 - 即使是简单的标识函数也会这样做：

let makeFunc f = f 

[<Export(typeof<int -> string>)>]
let toString = makeFunc <| fun (i:int) -> 
  i.ToString()

我没有对此进行测试，但我认为它可以工作。也就是说，在这种情况下，使用简单的单方法接口可能更安全。