Skip to content

Added generic overload of TaskBuilderV2.For method #32

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 2 commits into
base: master
Choose a base branch
from
Open

Added generic overload of TaskBuilderV2.For method #32

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
e2c6938
added generic implementation of for loop
May 16, 2020
c6d67f5
added an extra underscore in order to compile by F# <= 4.5
May 16, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 4 additions & 0 deletions TaskBuilder.fs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -272,6 +272,10 @@ module TaskBuilder =
member __.Combine(step : unit Step, continuation) = combine step continuation
member __.While(condition : unit -> bool, body : unit -> unit Step) = whileLoop condition body
member __.For(sequence : _ seq, body : _ -> unit Step) = forLoop sequence body
member inline __.For (sequence: ^a, body: 'b -> unit Step) =
let mutable e = ( ^a : (member GetEnumerator: unit -> ^Enumerator) sequence)
let moveNext () = ( ^Enumerator : (member MoveNext: unit -> bool) e )
whileLoop moveNext (fun _ -> body ( ^Enumerator : (member Current: 'b) e))
member __.TryWith(body : unit -> _ Step, catch : exn -> _ Step) = tryWith body catch
member __.TryFinally(body : unit -> _ Step, fin : unit -> unit) = tryFinally body fin
member __.Using(disp : #IDisposable, body : #IDisposable -> _ Step) = using disp body
Expand Down