File tree Expand file tree Collapse file tree 1 file changed +4
-2
lines changed Expand file tree Collapse file tree 1 file changed +4
-2
lines changed Original file line number Diff line number Diff line change @@ -154,13 +154,15 @@ module Operators =
154
154
/// To be used in pipe-forward style expressions
155
155
/// </summary>
156
156
/// <category index="1">Functor</category>
157
- let inline (|>>>) ( x : '``Functor1 < Functor2 < 'T >> ``) ( f : 'T -> 'U ) : '``Functor1 < Functor2 < 'U >> `` = ( Map.Invoke >> Map.Invoke) f x
157
+ let inline (|>>>) ( x : '``Functor1 < Functor2 < 'T >> ``) ( f : 'T -> 'U ) : '``Functor1 < Functor2 < 'U >> `` =
158
+ ( Map.Invoke >> ( Map.Invoke: ( '`` Functor2<'T> `` -> '`` Functor2<'U> `` ) -> _)) f x
158
159
159
160
/// <summary>
160
161
/// Lifts a function into two Functors.
161
162
/// </summary>
162
163
/// <category index="1">Functor</category>
163
- let inline (<<<|) ( f : 'T -> 'U ) ( x : '``Functor1 < Functor2 < 'T >> ``) : '``Functor1 < Functor2 < 'U > `` = ( Map.Invoke >> Map.Invoke ) f x
164
+ let inline (<<<|) ( f : 'T -> 'U ) ( x : '``Functor1 < Functor2 < 'T >> ``) : '``Functor1 < Functor2 < 'U > `` =
165
+ ( Map.Invoke >> ( Map.Invoke : ( '``Functor2 < 'T > `` -> '``Functor2 < 'U > `` ) -> _ )) f x
164
166
165
167
/// < summary >
166
168
/// Like map but ignoring the results.
You can’t perform that action at this time.
0 commit comments