anchor.diff:          member this.Combine(r1, r2) = this.Bind(r1, fun () -> r2)
   
           [<CustomOperation("get", MaintainsVariableSpaceUsingBind=true)>]
  -        member this.Get(state, url:StringFormat<'a->'b,'c>, processor:NancyModule -> 'a -> Async<Negotiator>) =
  +        member this.Get(state, url:StringFormat<'a->'b,'c>, processor: NancyModule -> 'a -> Async<Negotiator>) =
               // parsing is required for typesafe processor
               let (parsedUrl, parameters) = parseUrl url.Value processor 
               this.Bind(state, fun _ ->
  
positive.code:         let url' = printHelper nancyString paramterNames
          (url', parameters)
  
      /// This tuple is the response summary information we use to let Nancy build it
      type response<'b> = int * 'b * (string * string) list
      /// This function takes a response and returns a Nancy response negoriator 
      let negotiate (src:response<_>) (negotiator:Nancy.Responses.Negotiation.Negotiator) =
          match src with
          | code, content, headers -> 
              box (negotiator
                  .WithStatusCode(code)
                  .WithHeaders(List.toArray headers)
                  .WithModel(content))
  
      /// This is derived from the StateBuilder in fsharpx                  
      type State<'T, 'State> = 'State -> 'T * 'State
      let getState = fun s -> (s,s)
  
negative.code: //                    putState nancyModule)) 
  
          [<CustomOperation("options", MaintainsVariableSpaceUsingBind=true)>]
          member this.Options(state, url:StringFormat<'a->'b,'c>, processor) =
              // parsing is required for typesafe processor
              let (parsedUrl, parameters) = parseUrl url.Value processor 
              this.Bind(state, fun _ ->
  