Skip to content

Commit 354ca9c

Browse files
authored
Internalize some SeqT functions
1 parent ac4e9c2 commit 354ca9c

File tree

1 file changed

+4
-7
lines changed

1 file changed

+4
-7
lines changed

src/FSharpPlus/Data/Seq.fs

+4-7
Original file line numberDiff line numberDiff line change
@@ -280,8 +280,7 @@ module SeqT_V2 =
280280
/// An alias of `ofSeq`.
281281
let inline hoist (source: seq<'T>) : SeqT<'``Monad<bool>``, 'T> = ofSeq source
282282

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>`` =
285284
let ra = new ResizeArray<_> ()
286285
Using.Invoke
287286
((source :> IEnumerableM<'``Monad<bool>``, 'T>).GetEnumerator ())
@@ -334,8 +333,7 @@ module SeqT_V2 =
334333
else invalidOp enumNotStarted
335334
member _.Dispose () = () } }
336335

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> =
339337
SeqT
340338
{ new IEnumerableM<'``Monad<bool>``, 'T> with
341339
member _.GetEnumerator () =
@@ -1006,8 +1004,7 @@ module SeqT_V2 =
10061004
result false
10071005
member _.Dispose () = dispose e } }
10081006

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> =
10111008
if (count < 0) then invalidArg "count" "must be non-negative"
10121009
SeqT
10131010
{ new IEnumerableM<'``Monad<bool>``, 'T> with
@@ -1183,4 +1180,4 @@ type SeqT<'``monad<bool>``, 'T> with
11831180
[<EditorBrowsable(EditorBrowsableState.Never)>]
11841181
static member inline Zip (source1: SeqT<'``Monad<bool>``, 'T1>, source2: SeqT<'``Monad<bool>``, 'T2>) : SeqT<'``Monad<bool>``, ('T1 * 'T2)> = SeqT.zip source1 source2
11851182

1186-
#endif
1183+
#endif

0 commit comments

Comments
 (0)