f#保存数据与EF在高阶函数

我在f#高阶函数中创建并插入项目到数据库中。我不断抛出一个异常，说我试图保存0项到我的数据库，但我显然是添加项目到上下文中，然后保存。检查db. wordrelationships . local属性会显示728个项(没有一个是远程存在的)。

let CreateWordRelationDB () =
    let db = new AnnotatorModel()
    printfn "%s" "Entered Function and created db v8"
    let tweets = db.Tweets.ToList() |> Seq.map(fun t -> t.Text)
    let words = db.Words.ToList() |> Seq.map(fun w -> w)
    words 
    |> Seq.fold(fun acc w1 ->  
                        let filtacc = acc 
                                      |> Seq.filter(fun (w2:Word) -> 
                                                        if(w1.Text = w2.Text) then false else true)
                        let adds = filtacc 
                                    |> Seq.map(fun w2 -> CreateWordRelation w1 w2 tweets)
                        db.WordRelations.AddRange(adds) |> ignore
                        try 
                            db.SaveChanges() |> ignore
                        with error -> 
                                printfn "%s" error.Message
                        filtacc
                    ) words
    |> ignore

db.SaveChanges()总是失败。您可以在它的上方看到db. wordrelationships . addrange(添加)。每次迭代这个数量都会减少，但是从728开始，然后是727，然后是726，等等，直到0。

任何想法吗?