Efsharp.fs

module rec Program

open Microsoft.EntityFrameworkCore

type BloggingContext =
    { Blogs : DbSet<Blog>
      Posts : DbSet<Post> }

let configureDb (optionsBuilder:DbContextOptionsBuilder) =
    optionsBuilder.UseSqlServer @"Server=(localdb)\mssqllocaldb;Database=Blogging;Integrated Security=True"
    |> ignore

type Blog =
    { BlogId : int
      Url : string
      Rating : int
      Posts : ResizeArray<Post> }

type Post =
    { PostId : int
      Title : string
      Content : string
      BlogId : int
      Blog : Blog }

let ctx : BloggingContext = failwith "oops!"

let blogs =
    query {
        for blog in ctx.Blogs do
        where (blog.Rating > 3)
        sortBy blog.Url
    } |> Seq.toList