F# MongoDB Starter

README.md

dotnet new console -lang F# -o MyMongoApp
dotnet add package MongoDB.Driver --version 2.11.4

App.fs

open MongoDB.Driver
open MongoDB.Bson
open MongoDB.Driver.Linq

let doMongoStuff () =
    
    let client = MongoClient("mongodb://localhost:27017")
    let db = client.GetDatabase("rebujito-test")

    let collectionName = "users"
    let collection = db.GetCollection<BsonDocument>(collectionName)

    let count = collection.CountDocuments(FilterDefinitionBuilder().Empty);
    printfn "we've got %d elements in %s" count collectionName

    async {
        printfn "starting async workflow..."

        let! count = collection.AsQueryable<BsonDocument>().CountAsync() |> Async.AwaitTask
        printfn "we've got %d elements in %s" count collectionName

        let! users = collection.AsQueryable<BsonDocument>().Where(fun x -> true).Select(fun x -> x).ToListAsync() |> Async.AwaitTask
        printfn "we got %d users" users.Count

    } |> Async.RunSynchronously

[<EntryPoint>]
let main _argv =
    printfn "Hello Mongo"
    doMongoStuff ()
    0