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 f88e77c commit db9c7faCopy full SHA for db9c7fa
src/ExceptionsHandler.fs
@@ -1,10 +1,7 @@
1
namespace SqlStreamStore.FSharp
2
3
-module Async =
4
- let map f m = async.Bind(m, (f >> async.Return))
5
-
6
module ExceptionsHandler =
7
- let asyncExceptionHandler (op: Async<'res>): Async<Result<'res, string>> =
+ let asyncExceptionHandler (op: Async<'suc>): Async<Result<'suc, string>> =
8
op
9
|> Async.Catch
10
|> Async.map (function
0 commit comments