Skip to content

Commit 78d8835

Browse files
wallymathieugusty
andcommitted
-BindReturn
Co-authored-by: Gustavo Leon <1261319+gusty@users.noreply.github.com>
1 parent cde79bf commit 78d8835

File tree

2 files changed

+1
-3
lines changed

2 files changed

+1
-3
lines changed

src/FSharpPlus/Builders.fs

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -45,7 +45,6 @@ module Builders =
4545
member inline __.Yield (x: 'T) = result x : '``Monad<'T>``
4646
member inline __.Bind (p: '``Monad<'T>``, rest: 'T->'``Monad<'U>``) = p >>= rest : '``Monad<'U>``
4747
member inline __.MergeSources (t1: '``Monad<'T>``, t2: '``Monad<'U>``) : '``Monad<'T * 'U>`` = Lift2.Invoke tuple2 t1 t2
48-
member inline __.BindReturn (x : '``Monad<'T>``, f: 'T -> 'U) : '``Monad<'U>`` = Map.Invoke f x
4948

5049
[<CustomOperation("select", MaintainsVariableSpaceUsingBind=true, AllowIntoPattern=true)>]
5150
member inline __.Select (x, [<ProjectionParameter>] f) = map f x

tests/FSharpPlus.Tests/General.fs

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1800,7 +1800,7 @@ module MonadTransformers =
18001800
let _ = put initialState : ChoiceT<State<int, Choice<unit,string>>>
18011801

18021802
()
1803-
#if !NETSTANDARD3_0
1803+
18041804
[<Test>]
18051805
let testStateT () =
18061806
let lst1: StateT<string,_> = StateT.lift [1;2]
@@ -1835,7 +1835,6 @@ module MonadTransformers =
18351835
areEqual (Ok 11) x
18361836
let y = (fn |> ResultT.run |> Reader.run) -1
18371837
areEqual (Error NegativeValue) y
1838-
#endif
18391838

18401839
module ProfunctorDefaults =
18411840
type Fun<'T,'U> = Fun of ('T -> 'U) with

0 commit comments

Comments
 (0)