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]?
• Каков правильный способ импорта/экспорта функций F # через MEF?

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() 

Я не проверял, но я думаю, что она могла бы работать. Тем не менее, в этом случае, вероятно, безопаснее использовать простой интерфейс с одним методом.