anchor.diff:                  let! response = this.GetAsync()
                   return response.Parse<'T>()
               }
  -          
  -        member this.Follow (rel:string, urlSegments: (string*string) list) : RequestContext =
  -            let rp = this.requestParameters
  +        
  +        member private this.getUrlSegments(urlSegments: (string*string) list) : Parameter list = 
               let segments = 
                   urlSegments 
                   |> List.map (
  
positive.code:                         p.Type <- ParameterType.UrlSegment
                          p
                      )
  
              let newRp = {rp with follow = rp.follow @ [{rel=rel; urlSegments=segments}]}
              {this with requestParameters = newRp}
  
negative.code:             this.Follow (rel, [])
  
          member this.UrlSegments (urlSegments: (string*string) list) : RequestContext = 
             let rp = this.requestParameters
             let segments = this.getUrlSegments urlSegments
             let newRp = {rp with urlSegments = rp.urlSegments @ segments}
             {this with requestParameters = newRp} 
  
      type HalClient (env:EnvironmentParameters) = 
  