gistfile1.fs

type RequestBuilder()=    
      member this.Combine (a,b) = a>>b
      member this.Yield (())=fun r->r
      member this.Yield (f)=f
      member this.Delay(f)=f()

      [<CustomOperation("method")>]
      member this.Method(f:HttpRequestMessage->HttpRequestMessage,m:HttpMethod)=
        f>>fun r->   
           r.Method<-m
           r

      [<CustomOperation("header")>]
      member this.Header(f:HttpRequestMessage->HttpRequestMessage,name:string,value:string)=
        f>>fun r->
           r.Headers.Add(name,value)
           r
      [<CustomOperation("url")>]
      member this.Url (f:HttpRequestMessage->HttpRequestMessage,uri:string)=
       f>>fun r->
          r.RequestUri<-new Uri(uri)
          r    

      [<CustomOperation("custom")>]
      member this.Custom (f:HttpRequestMessage->HttpRequestMessage,apply:HttpRequestMessage->HttpRequestMessage)=
       f>>fun r->
          apply r   
      [<CustomOperation("param")>]
      member this.Parameter (f:HttpRequestMessage->HttpRequestMessage,name:string,value:string)=
       f>>fun r->
           let builder=new UriBuilder(r.RequestUri)
           let query=HttpUtility.ParseQueryString(builder.Query)
           query.[name]<-value
           builder.Query<-query.ToString()
           r.RequestUri<-builder.Uri
           r