bit-badger/RethinkDb.Driver.FSharp
1
0
Fork 0
Code Issues Pull Requests Projects Releases 4 Activity

Raise exn on write error

Browse Source
This commit is contained in:
Daniel J. Summers 2022-04-16 23:05:57 -04:00
parent 711855037b
commit 20a9ea461c
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/RethinkDb.Driver.FSharp/Builder.fs
View File

@ -11,6 +11,9 @@ open System.Threading.Tasks
/// Computation Expression builder for RethinkDB queries /// Computation Expression builder for RethinkDB queries
type RethinkBuilder<'T> () = type RethinkBuilder<'T> () =
/// Await a Task (avoids using the task CE when we may raise exceptions)
let await = Async.AwaitTask >> Async.RunSynchronously
/// Create a RethinkDB hash map of the given field/value pairs /// Create a RethinkDB hash map of the given field/value pairs
let fieldsToMap (fields : (string * obj) list) = let fieldsToMap (fields : (string * obj) list) =
fields fields
@ -211,9 +214,11 @@ type RethinkBuilder<'T> () =
/// Perform a write operation /// Perform a write operation
[<CustomOperation "write">] [<CustomOperation "write">]
member _.Write (expr : ReqlExpr) : IConnection -> Task<Model.Result> = member _.Write (expr : ReqlExpr) : IConnection -> Task<Model.Result> =
fun conn -> task { fun conn ->
return! expr.RunWriteAsync conn let result = expr.RunWriteAsync conn |> await
} match result.Errors with
| 0UL -> Task.FromResult result
| _ -> raise <| ReqlRuntimeError result.FirstError
/// Perform a write operation /// Perform a write operation
[<CustomOperation "write">] [<CustomOperation "write">]