anchor.diff:              | Some c ->
                   let credentials = 
                       c
  -                    |> getFromCache &loginCache getCredentials (Some 1.0)
  +                    |> getCredentials
                       |> Option.map simpleCredentialsToCredentials
                   Option.iter Tweetinvi.Auth.SetCredentials credentials
                   credentials
  
positive.code:                         | _ -> None
                         )
          
          getFromCache &utiCache getCombinedInfo (Some 1.0) username
          
      ///Takes a tweet and makes it good for the "tweet this!" button. (adds usernames and a link)
      let tweetWithContext (username1:string) (username2:string) (text:string) : string*int =
  
negative.code:         let config = System.Collections.Specialized.NameValueCollection()
          config.Add("pollingInterval", "00:01:00")
          config.Add("physicalMemoryLimitPercentage", "0")
          config.Add("cacheMemoryLimitMegabytes", "16")
          new MemoryCache("partialLoginInfoCache",config)
  
      let mutable loginInfoCache = 
          let config = System.Collections.Specialized.NameValueCollection()
          config.Add("pollingInterval", "00:01:00")
          config.Add("physicalMemoryLimitPercentage", "0")
          config.Add("cacheMemoryLimitMegabytes", "64")
          new MemoryCache("loginInfoCache",config)
          
      let mutable userInfoCache = 
          let config = System.Collections.Specialized.NameValueCollection()
          config.Add("pollingInterval", "00:01:00")
          config.Add("physicalMemoryLimitPercentage", "0")
          config.Add("cacheMemoryLimitMegabytes", "64")
          new MemoryCache("userInfoCache",config)
  
      let mutable userTweetInfoCache = 
          let config = System.Collections.Specialized.NameValueCollection()
          config.Add("pollingInterval", "00:01:00")
          config.Add("physicalMemoryLimitPercentage", "0")
          config.Add("cacheMemoryLimitMegabytes", "256")
          new MemoryCache("userTweetInfoCache",config)
  
      let getFromCache (cache: byref<MemoryCache>) (getValue: string -> 'V option) (expirationDays: float option) (key:string)=
          let newValue = new Lazy<'V option>(fun () -> getValue key)
  