diff --git a/TaskBuilder.fs b/TaskBuilder.fs index b8e0fec..6a671f9 100644 --- a/TaskBuilder.fs +++ b/TaskBuilder.fs @@ -66,11 +66,6 @@ module TaskBuilder = methodBuilder.AwaitUnsafeOnCompleted(&await, &self) member __.SetStateMachine(_) = () // Doesn't really apply since we're a reference type. - let unwrapException (agg : AggregateException) = - let inners = agg.InnerExceptions - if inners.Count = 1 then inners.[0] - else agg :> Exception - /// Used to represent no-ops like the implicit empty "else" branch of an "if" expression. let zero = Return () @@ -413,4 +408,4 @@ module V2 = type TaskBuilderV2 with member inline __.Bind (task, continuation : 'a -> 'b Step) : 'b Step = (BindI.Priority1 >>= task) continuation - member inline __.ReturnFrom a : 'b Step = ReturnFromI.Priority1 $ a \ No newline at end of file + member inline __.ReturnFrom a : 'b Step = ReturnFromI.Priority1 $ a