MongoDbExample.fs

open MongoDB.Bson
open MongoDB.Driver

type User =
    {
        _id : BsonObjectId
        Name : string
    }

[<EntryPoint>]
let main argv =

    let client = MongoClient("mongodb://localhost:27017")
    let db = client.GetDatabase("test")
    let coll = db.GetCollection<User>("User")
    let filter =
        Builders<User>
            .Filter
            .Regex(
                (fun user -> user.Name :> obj),
                BsonRegularExpression("o"))
    for entry in coll.Find(filter).ToEnumerable() do
        printfn "%A" entry

    0