Skip to content

Commit d8f2579

Browse files
nojafnojaf
committed
Deal with ghost dependencies.
1 parent 742e6de commit d8f2579

5 files changed

Lines changed: 436 additions & 49 deletions

File tree

‎tests/ParallelTypeCheckingTests/Code/TrieApproach/Continuation.fs‎

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
namespace ParallelTypeCheckingTests.Code.TrieApproach
2+
3+
[<RequireQualifiedAccess>]
4+
module Continuation =
5+
let rec sequence<'a, 'ret> (recursions: (('a -> 'ret) -> 'ret) list) (finalContinuation: 'a list -> 'ret) : 'ret =
6+
match recursions with
7+
| [] -> [] |> finalContinuation
8+
| recurse :: recurses -> recurse (fun ret -> sequence recurses (fun rets -> ret :: rets |> finalContinuation))

0 commit comments

Comments
 (0)