anchor.diff:  //                    putState nancyModule)) 
   
           [<CustomOperation("options", MaintainsVariableSpaceUsingBind=true)>]
  -        member this.Options(state, url:StringFormat<'a->'b,'c>, processor:NancyModule -> 'a -> Async<Negotiator>) =
  +        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 _ ->
  
positive.code:     [<AbstractClass>]
      type Fancy(pipeline:State<unit,NancyModule>) as this =
          inherit NancyModule()
          do
          exec pipeline this |> ignore
negative.code:         let url' = printHelper nancyString paramterNames
          (url', parameters)
  
      /// This is derived from the StateBuilder in fsharpx                  
      type State<'T, 'State> = 'State -> 'T * 'State
      let getState = fun s -> (s,s)
  