anchor.diff:  /// route matches and subsequently passed into the supplied routeHandler.
   let routeCif (route : StringFormat<_, 'T>) (routeHandler : 'T -> HttpHandler) =
       fun (ctx : HttpHandlerContext) ->
  -        tryMatchInput route (ctx.HttpContext.Request.Path.ToString()) true
  +        tryMatchInput route (getRalativePath ctx.HttpContext) true
           |> function
               | None      -> None |> async.Return
               | Some args -> routeHandler args ctx
  
positive.code:                 ctx
                  |> (setHttpHeader "Content-Type" "text/html"
                  >>= setBodyAsString html)
          }
negative.code: let PATCH   = httpVerb "PATCH"  : HttpHandler
  let DELETE  = httpVerb "DELETE" : HttpHandler
  
  [<Literal>]
  let private RouteKey = "route"
  
  /// Filters an incoming HTTP request based on the accepted
  /// mime types of the client.
  let mustAccept (mimeTypes : string list) =
  