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 =
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
Original file line number Diff line number Diff 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
18401839module ProfunctorDefaults =
18411840 type Fun < 'T , 'U > = Fun of ( 'T -> 'U ) with
You can’t perform that action at this time.
0 commit comments