anchor.diff:  
       let inline private syncOverAsync a =
           a |> Async.UnwrapAggregateException |> Async.RunSynchronously
  -    
  -    module Task = 
  -        open FSharp.Control.Tasks.V2 
  -        
  +
  +    module Task =
  +        open FSharp.Control.Tasks.V2
  +
           let inTableAsync (client: CloudTableClient) tableName operation =
               task {
                   let table = client.GetTableReference tableName
  
positive.code:                 return result.Results, result.ContinuationToken |> toOption
              }
          let fromTableAsync (client: CloudTableClient) tableName (query : EntityQuery<'T>) =
              let rec getSegmentAsync continutationToken resultsLength resultsList =
                  task {
                      let! result, furtherContinuation = query |> fromTableSegmentedAsync client tableName continutationToken
                      match furtherContinuation with
                      | Some _ ->
                          //When using segmentation, the table storage take param is applied to each segment not to the entire resultset
                          //So we need to keep track of how many results we want to actually take and stop early if necessary
                          let takeCount = query.TakeCount |> Option.defaultValue Int32.MaxValue
                          let newResultsLength = resultsLength + result.Count
                          if newResultsLength = takeCount then
                              return result :> seq<_> :: resultsList
                          elif newResultsLength > takeCount then
                              return result.Take(takeCount - resultsLength) :: resultsList
                          else
                              return! result :> seq<_> :: resultsList |> getSegmentAsync furtherContinuation newResultsLength
                      | None ->
                          return result :> seq<_> :: resultsList
                  }
              task {
                  let! resultsList = getSegmentAsync None 0 []
                  return resultsList |> List.rev |> Seq.concat
              }
      
      let inTableAsync (client: CloudTableClient) tableName operation =
          async { return! Task.inTableAsync client tableName operation |> Async.AwaitTask }
  
  
negative.code:         async { return! Task.fromTableSegmentedAsync client tableName continuationToken query |> Async.AwaitTask }
  
      let fromTableAsync (client: CloudTableClient) tableName (query : EntityQuery<'T>) =
          async { return! Task.fromTableAsync client tableName query |> Async.AwaitTask }
  
      let fromTable client tableName query =
          fromTableAsync client tableName query |> syncOverAsync
  