anchor.diff:    {
       AccessToken : string
       RefreshToken : string
  -    ExpiresIn : System.TimeSpan
  -    ObtainedAt: System.DateTimeOffset
  +    // ExpiresIn : System.TimeSpan
  +    // ObtainedAt: System.DateTime
       TokenType: string
       Scope : string
       RawJson : string
     }
  -  member this.addToWebRequest (req:System.Net.WebRequest) =
  -    req.Headers.Set("Authorization", "Bearer " + this.AccessToken)
  +
  +  member this.addToWebRequest (request:System.Net.WebRequest) =
  +    request.Headers.Set("Authorization", "Bearer " + this.AccessToken)
  +
   
     static member FromJson(txt, ?obtainedAt) =
       let resultData = JsonValue.Parse(txt)
       {
         AccessToken = (resultData?access_token).AsString()
         RefreshToken = resultData?refresh_token.AsString()
  -      ExpiresIn = System.TimeSpan.FromSeconds(resultData?expires_in.AsFloat())
  -      ObtainedAt =
  -        if resultData.TryGetProperty("obtained_at") = None
  -          then defaultArg obtainedAt System.DateTimeOffset.UtcNow
  -          else System.DateTimeOffset.Parse(resultData?obtained_at.ToString())
  +      //ExpiresIn = System.TimeSpan.FromSeconds(resultData?expires_in.AsFloat())
  +      //ObtainedAt =
  +      //  if resultData.TryGetProperty("obtained_at") = None
  +      //    then defaultArg obtainedAt System.DateTime.UtcNow
  +      //    else System.DateTime.Parse(resultData?obtained_at.ToString())
         TokenType = resultData?token_type.AsString()
         Scope = resultData?scope.AsString()
         RawJson = txt
  
positive.code:     JsonValue.Object(
          Map [  "access_token", JsonValue.String this.AccessToken
                 "refresh_token", JsonValue.String this.RefreshToken
                 "expires_in", JsonValue.Float this.ExpiresIn.TotalSeconds
                 "obtained_at", JsonValue.String (this.ObtainedAt.ToString("o"))
                 "token_type", JsonValue.String this.TokenType
                 "scope", JsonValue.String this.Scope
                 "raw_json", JsonValue.String this.RawJson
  
negative.code: namespace OAuth2Client
  
  
  open FSharp.Data.Json
  