We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 9cc4eda commit f0484e9Copy full SHA for f0484e9
src/ExceptionsHandler.fs
@@ -1,14 +1,13 @@
1
namespace SqlStreamStore.FSharp
2
3
module Async =
4
- let bind f m = async.Bind(m, f)
5
- let map f m = m |> bind (f >> async.Return)
+ let map f m = async.Bind(m, (f >> async.Return))
6
7
module ExceptionsHandler =
8
9
let simpleExceptionHandler (op: Async<'res>): Async<Result<'res, string>> =
10
- op
11
- |> Async.Catch
12
- |> Async.map (function
13
- | Choice1Of2 response -> Ok response
14
- | Choice2Of2 exn -> Error exn.Message)
+ op
+ |> Async.Catch
+ |> Async.map (function
+ | Choice1Of2 response -> Ok response
+ | Choice2Of2 exn -> Error exn.Message)
0 commit comments