3

我正在使用 F# 阅读 Web 云和移动解决方案，并尝试关注作者正在构建的网站。但是我有一些问题，我无法解决。我理解我正在做的事情的逻辑，但似乎缺少一些代码使其工作。我已阅读到第 19 页。

我有以下存储库模块：

module Repository =
    let get (source : IQueryable<_>) queryFn=
        queryFn |> Seq.toList

    let getAll ()= 
        fun s -> query { for x in s  do
                         select x }

这个想法是在 queryFn 中使用 getAll 从源中获取所有项目。但我在两者之间有一个演员问题。

这是使用它的控制器：

[<HandleError>]
type GuitarsController(context : IDisposable, ?repository ) =
    inherit Controller()


    let fromRepository =
        match repository with
        | Some v -> v
        | _ -> (context :?>  FsMvcAppEntities).guitars
                |> Repository.get



    new() = new GuitarsController(new FsMvcAppEntities())

    member this.Index() =
        getAll()
        |> fromRepository
        |> this.View

getAll() 不适用于 |> fromRepository。

''b -> Linq.IQueryable<'c>' 类型与 'seq<'a>' 类型不兼容。

查看存储库模块中定义的类型时，我可以看到 queryFn 是：

val get : source:IQueryable<'a> -> queryFn:seq<'b> -> 'b list

和getall给

 unit -> s:System.Linq.IQueryable<'a> -> System.Linq.IQueryable<'a>
4

1 回答 1

6

你Repository.get没有使用source：D。

将其更改为：

module Repository =
    let get (source : IQueryable<_>) queryFn =
        queryFn source |> Seq.toList
于 2013-01-25T11:40:35.807 回答