Skip to content

Commit f0484e9

Browse files
author
Jamil Maqdis Anton
committed
Remove unneeded function
1 parent 9cc4eda commit f0484e9

File tree

1 file changed

+6
-7
lines changed

1 file changed

+6
-7
lines changed

src/ExceptionsHandler.fs

Lines changed: 6 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1,14 +1,13 @@
11
namespace SqlStreamStore.FSharp
22

33
module Async =
4-
let bind f m = async.Bind(m, f)
5-
let map f m = m |> bind (f >> async.Return)
4+
let map f m = async.Bind(m, (f >> async.Return))
65

76
module ExceptionsHandler =
87

98
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)
9+
op
10+
|> Async.Catch
11+
|> Async.map (function
12+
| Choice1Of2 response -> Ok response
13+
| Choice2Of2 exn -> Error exn.Message)

0 commit comments

Comments
 (0)