anchor.diff:  
   module internal FacebookConverters =
       let streamToUser (contentInfo:ContentInfo, stream:Stream) = async {
  -        let callingContext = SynchronizationContext.Current
           do! Async.SwitchToThreadPool ()
   
           use stream = stream
  
positive.code:         let o = JToken.ReadFrom(new JsonTextReader(sr)) :?> JObject
          let firstName = string o.["first_name"]
  
          do! Async.SwitchToContext callingContext
  
          return (contentInfo, { firstName = firstName })
      }
  
      let streamToPages (contentInfo:ContentInfo, stream:Stream) = async {
          let callingContext = SynchronizationContext.Current
          do! Async.SwitchToThreadPool ()
  
          use stream = stream
  
negative.code: 
                  { id = id; accessToken = accessToken; name = name })
              |> List.ofSeq
  
          return (contentInfo, result)
      }
  