anchor.diff:          |> List.iter (
               fun endpoint ->
                   match endpoint with
  -                | SingleEndpoint (v, t, d) -> this.MapSingleEndpoint(v, routeTemplate t, d)
  -                | NestedEndpoint (t, e)    -> this.MapNestedEndpoint(routeTemplate t, e)
  +                | SingleEndpoint (v, t, d) ->
  +                    let d = RequestDelegateBuilder.createRequestDelegate d
  +                    this.MapSingleEndpoint(v, routeTemplate t, d)
  +                | TemplateEndpoint(v, t, m, d) ->
  +                    let d = RequestDelegateBuilder.createTokenizedRequestDelegate m d
  +                    this.MapSingleEndpoint(v, routeTemplate t, d)
  +                | NestedEndpoint (t, e) ->
  +                    this.MapNestedEndpoint(routeTemplate t, e)
           )
   
       member this.MapGiraffeEndpoints (endpoints : Endpoint list) =
  
positive.code:         | _          -> ""
  
  type RouteTemplate = string
  
  type Endpoint =
      | SingleEndpoint of HttpVerb * RouteTemplate * RequestDelegate
      | NestedEndpoint of RouteTemplate * Endpoint list
  
  let inline (=>) (fx : Endpoint -> Endpoint) (x : Endpoint) = fx x
  
negative.code:     match endpoint with
      | SingleEndpoint (_, routeTemplate, requestDelegate) ->
          SingleEndpoint (verb, routeTemplate, requestDelegate)
      | TemplateEndpoint(_, routeTempplte,mappings, requestDelegate) ->
          TemplateEndpoint(verb, routeTempplte,mappings, requestDelegate)
      | NestedEndpoint (routeTemplate, endpoints) ->
          NestedEndpoint (routeTemplate, endpoints |> List.map (httpVerb verb))
  
  