Inscrivez-vous avec Entity Framework et F #

Question

Ce qui semble être une tâche facile en C# ne semble pas si facile à F # ...

Compte tenu des types en C# suivant que je veux faire une jointure avec F #:

public partial class Foo 
{ 
    public long FooID { get; set; } 
    public long BarID { get; set; } 
    public bool SomeColumn1 { get; set; } 
} 

public partial class Bar 
{ 
    public long ID { get; set; } 
    public string SomeColumn1 { get; set; } 
    public bool SomeColumn2 { get; set; } 
} 

donc mon essai à faire est:

let dbContext = DatabaseManager.Instance.ProduceContext() 

let barIdForeignKey(f: Foo) = 
    f.BarID 

let barIdPrimaryKey(b: Bar) = 
    b.ID 

let joinResult(f: Foo, b: Bar) = 
    (f, b) 

let joinedElements = 
    dbContext.foos.Join(dbContext.bars, barIdForeignKey, barIdPrimaryKey, joinResult) 

Mais le compilateur se plaint avec quelque chose comme:

surcharge possible: (extension)

System.Collections.Generic.IEnumerable.Join<'TOuter, 'TInner, 'TKey, 'TResult>(
    inner:   System.Collections.Generic.IEnumerable<'TInner>, 
    outerKeySelector: System.Func<'TOuter, 'TKey>, 
    innerKeySelector: System.Func<'TInner, 'TKey>, 
    resultSelector: System.Func<'TOuter, 'TInner, 'TResult>) 
    : System.Collections.Generic.IEnumerable<'TResult> 

Type de non-concordance de contrainte. Le type 'd * 'e -> foo * bar n'est pas compatible avec le type System.Func<'a, 'b, 'c>

Le type 'd * 'e -> foo * bar n'est pas compatible avec le type System.Func<'a, 'b, 'c>

Je ne sais pas lire cela. Peut-être que je ne peux pas retourner un tuple à la fin? En C#, j'aurais besoin d'un type anonyme, comme new { Foo = foo, Bar = bar }, je ne sais pas comment faire ça en F #.

Answer 1

Solution (grâce @ildjarn) en utilisant des arguments currified pour la dernière func:

let dbContext = DatabaseManager.Instance.ProduceContext() 

let barIdForeignKey(f: Foo) = 
    f.BarID 

let barIdPrimaryKey(b: Bar) = 
    b.ID 

let joinResult(f: Foo) (b: Bar) = 
    (f, b) 

let joinedElements = 
    dbContext.foos.Join(dbContext.bars, barIdForeignKey, barIdPrimaryKey, joinResult) 

qui à la fin peut être simplifiée:

let joinedElements = 
    dbContext.foos.Join (dbContext.bars, 
         (fun f -> f.barID), 
         (fun b -> b.ID), 
         (fun f b -> (f,b)) 
         ) 

@PanagiotisKanavos m'a aussi donné un indice sur les jointures utiliser un ORM étant une odeur de code, et cela m'a permis de découvrir qu'il y avait effectivement une propriété Bar dans la classe Foo (de sorte que je n'ai pas besoin de jouer avec la colonne BarID, car cette propriété Bar est remplie par EntityFramewor k de cette façon de toute façon). Ceci, combiné avec la suggestion originale de @ ildjarn pour l'utilisation query expressions, m'a conduit à la meilleure réponse:

let dbContext = DatabaseManager.Instance.ProduceContext() 

let joinedElements = 
    query { 
     for foo in dbContext.foos do 
      select (foo.Bar, foo.SomeColumn1) 
    }