@@ -280,8 +280,7 @@ module SeqT_V2 =
280
280
/// An alias of `ofSeq`.
281
281
let inline hoist ( source : seq < 'T >) : SeqT < '``Monad < bool > ``, 'T > = ofSeq source
282
282
283
- [<EditorBrowsable( EditorBrowsableState.Never) >]
284
- let inline runThen < 'T , .. > ( f : ResizeArray < 'T > -> 'R ) ( source : SeqT < '``Monad < bool > ``, 'T >) : '``Monad < 'R > `` =
283
+ let inline internal runThen < 'T , .. > ( f : ResizeArray < 'T > -> 'R ) ( source : SeqT < '``Monad < bool > ``, 'T >) : '``Monad < 'R > `` =
285
284
let ra = new ResizeArray<_> ()
286
285
Using.Invoke
287
286
(( source :> IEnumerableM< '`` Monad<bool> `` , 'T>) .GetEnumerator ())
@@ -334,8 +333,7 @@ module SeqT_V2 =
334
333
else invalidOp enumNotStarted
335
334
member _.Dispose () = () } }
336
335
337
- [<EditorBrowsable( EditorBrowsableState.Never) >]
338
- let inline make ( f : unit -> '``Monad < SeqT < 'Monad < bool >, 'T >> ``) : SeqT < '``Monad < bool > ``, 'T > =
336
+ let inline internal make ( f : unit -> '``Monad < SeqT < 'Monad < bool >, 'T >> ``) : SeqT < '``Monad < bool > ``, 'T > =
339
337
SeqT
340
338
{ new IEnumerableM< '`` Monad<bool> `` , 'T> with
341
339
member _.GetEnumerator () =
@@ -1006,8 +1004,7 @@ module SeqT_V2 =
1006
1004
result false
1007
1005
member _.Dispose () = dispose e } }
1008
1006
1009
- [<EditorBrowsable( EditorBrowsableState.Never) >]
1010
- let inline skipImpl throw count ( source : SeqT < '``Monad < bool > ``, 'T >) : SeqT < '``Monad < bool > ``, 'T > =
1007
+ let inline internal skipImpl throw count ( source : SeqT < '``Monad < bool > ``, 'T >) : SeqT < '``Monad < bool > ``, 'T > =
1011
1008
if ( count < 0 ) then invalidArg " count" " must be non-negative"
1012
1009
SeqT
1013
1010
{ new IEnumerableM< '`` Monad<bool> `` , 'T> with
@@ -1183,4 +1180,4 @@ type SeqT<'``monad<bool>``, 'T> with
1183
1180
[<EditorBrowsable( EditorBrowsableState.Never) >]
1184
1181
static member inline Zip ( source1 : SeqT < '``Monad < bool > ``, 'T1 >, source2 : SeqT < '``Monad < bool > ``, 'T2 >) : SeqT < '``Monad < bool > ``, ( 'T1 * 'T2 )> = SeqT.zip source1 source2
1185
1182
1186
- #endif
1183
+ #endif
0 commit comments