anchor.diff:          |> List.iter(
               fun endpoint ->
                   match endpoint with
  -                | SingleEndpoint (v, t, d)  ->
  -                    let d = RequestDelegateBuilder.createRequestDelegate d
  +                | SimpleEndpoint (v, t, h)  ->
  +                    let d = RequestDelegateBuilder.createRequestDelegate h
                       this.MapSingleEndpoint (v, t, d)
  -                | TemplateEndpoint(v,t, m, d) ->
  -                    let d = RequestDelegateBuilder.createTokenizedRequestDelegate m d
  +                | TemplateEndpoint(v, t, m, h) ->
  +                    let d = RequestDelegateBuilder.createTokenizedRequestDelegate m h
                       this.MapSingleEndpoint(v, t, d)
                   | NestedEndpoint (t, e)     -> this.MapNestedEndpoint (t, e)
           )
positive.code: type RouteTemplateMappings = list<string * char>
  
  type Endpoint =
      | SingleEndpoint of HttpVerb * RouteTemplate * HttpHandler
      | TemplateEndpoint of HttpVerb * RouteTemplate * RouteTemplateMappings * (obj -> HttpHandler)
      | NestedEndpoint of RouteTemplate * Endpoint list
  
  let inline (=>) (fx : Endpoint -> Endpoint) (x : Endpoint) = fx x
  
  
negative.code:         |> List.iter (
              fun endpoint ->
                  match endpoint with
                  | SimpleEndpoint (v, t, h) ->
                      let d = RequestDelegateBuilder.createRequestDelegate h
                      this.MapSingleEndpoint(v, routeTemplate t, d)
                  | TemplateEndpoint(v, t, m, h) ->
                      let d = RequestDelegateBuilder.createTokenizedRequestDelegate m h
                      this.MapSingleEndpoint(v, routeTemplate t, d)
                  | NestedEndpoint (t, e) ->
                      this.MapNestedEndpoint(routeTemplate t, e)
  