naartjie · November 29, 2020 23:13 · Nov 29, 2020
diff --git a/App.fs b/App.fs
@@ -0,0 +1,31 @@
+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
diff --git a/README.md b/README.md
@@ -0,0 +1,4 @@
+```sh
+dotnet new console -lang F# -o MyMongoApp
+dotnet add package MongoDB.Driver --version 2.11.4
+```