File tree Expand file tree Collapse file tree 2 files changed +1
-3
lines changed Expand file tree Collapse file tree 2 files changed +1
-3
lines changed Original file line number Diff line number Diff line change @@ -45,7 +45,6 @@ module Builders =
45
45
member inline __.Yield ( x : 'T ) = result x : '`` Monad<'T> ``
46
46
member inline __.Bind ( p : '``Monad < 'T > ``, rest : 'T -> '``Monad < 'U > ``) = p >>= rest : '`` Monad<'U> ``
47
47
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
49
48
50
49
[<CustomOperation( " select" , MaintainsVariableSpaceUsingBind= true , AllowIntoPattern= true ) >]
51
50
member inline __.Select ( x , [<ProjectionParameter>] f ) = map f x
Original file line number Diff line number Diff line change @@ -1800,7 +1800,7 @@ module MonadTransformers =
1800
1800
let _ = put initialState : ChoiceT< State< int, Choice< unit, string>>>
1801
1801
1802
1802
()
1803
- #if ! NETSTANDARD3 _ 0
1803
+
1804
1804
[<Test>]
1805
1805
let testStateT () =
1806
1806
let lst1 : StateT < string , _ > = StateT.lift [ 1 ; 2 ]
@@ -1835,7 +1835,6 @@ module MonadTransformers =
1835
1835
areEqual ( Ok 11 ) x
1836
1836
let y = ( fn |> ResultT.run |> Reader.run) - 1
1837
1837
areEqual ( Error NegativeValue) y
1838
- #endif
1839
1838
1840
1839
module ProfunctorDefaults =
1841
1840
type Fun < 'T , 'U > = Fun of ( 'T -> 'U ) with
You can’t perform that action at this time.
0 commit comments